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'  INTRODUCTION 

'm 

The  Copperhead  stockpile  surveillance  program  presently  being  developed  by  the 
Advanced  Technologies  Laboratory,  ARDEC,  is  a  highly  automated  software  driven  test 
system.  It  is  designed  to  test  the  Copperhead  round’s  seeker,  electronics  package, 
guidance,  and  control  systems.  The  data  obtained  will  be  used  to  identify  trends  in 
round  performance  and  subsequently  provide  a  means  of  predicting  future  round 
reliability/  ^ 

C'"' 

^  This  report  describes  the  software  and  related  hardware  used  to  acquire  test  data 
for  the  Copperhead  stockpile  surveillance  program.  It  outlines  their  interaction  and 
ptovides  an  example  of  how  the  test  system  is  used.  Methods  for  system  calibration 
are  also  presented  as  well  as  a  scheme  for  sampling  data  in  bursts.  Selected  portions 
of  in-house  developed  software  are  also  discussed.  ^ 

GENERAL  SYSTEM  DESCRIPTION 


Software 

The  test  software  used  to  support  the  Copperhead  stockpile  surveillance  effort 
consists  of  three  programs  developed  in-house  and  two  packages  commercially  avail¬ 
able  through  Hewlett  Packard.  The  first  of  the  three  in-house  programs  is  named 
COPPER  and  acts  to  perform  the  actual  testing  of  a  Copperhead  unit.  While  COPPER 
is  able  to  plot  and  list  test  results,  a  second  program,  PLOT_OL,  is  available  for  off-line 
visual  data  scrutiny.  Data  are  also  able  to  be  tested  against  specifications  using  the 
third  available  program,  ANALYZE.  All  of  the  in-house  programs  are  written  in  Hewlett 
Packard  (H.P.)  B,  SIC  which  is  across  between  FORTRAN  and  traditional  BASIC. 

The  first  of  H.P.’s  packages  is  called  FTM/300.  It  acts  as  an  executive  through 
which  the  in-house  programs  are  executed.  FTM/300  serves  as  an  umbrella  under 
which  programs  have  access  to  user  created  tables  designed  to  organize,  enhance, 
simplify,  and  coordinate  equipment  direction.  The  second  H.P.  product  is  named  CAT 
(computer  aided  test).  It  is  used  by  COPPER  as  a  library  of  routines  from  which  to 
program  and  drive  the  family  of  cards  which  comprise  H.P.’s  6944  multiprogrammer 
instrumentation  package. 

Hardware 

The  6944  multiprogrammer  instrumentation  package  is  a  computer-aided  test 
system  which  provides  the  engineer  with  a  versatile  means  of  test  system  development. 
Its  mainframe  allows  the  insertion  or  deletion  of  a  variety  of  test  system  component 
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cards  able  to  be  accessed  on  a  dedicated  data  bus  by  means  of  an  H.P.  320  personal 
computer.  Examples  of  the  cards  available  are  analog-to-digital  converters,  relay 
scanners,  counters,  timers,  digital-to-analog  converters,  and  relay  cards. 

While  the  6944  multiprogrammer  is  a  large  contributor  of  hardware  to  the  system, 
it  is  not  alone  and  is  supplemented  by  a  host  of  instrumentation  programmable  by 
means  of  the  IEEE-488  data  bus.  This  bus  is  an  industry  standard  and  is  independent 
of  the  6944.  It  is  therefore  able  to  support  the  equipment  of  manufacturers  other  then 
Hewlett  Packard;  however,  H.P.  equipment  has  been  used  in  an  attempt  tc  achieve 
maximum  system  continuity.  Examples  of  the  equipment  used  over  the  bus  include 
power  supplies,  function  generators,  counters,  digital  voltmeters,  attenuators,  stepper 
motors,  plotters,  and  printers.  A  third  bus  is  also  used  to  provide  high  speed  data 
transfer  between  the  H.P.  320  and  data  storage  equipment.  H.P.  9133  and  7958  hard 
disk  drives  are  presently  available  on  the  system  in  addition  to  an  H.P.  9144  tape 
backup  unit. 


WINDOWED  DATA  COLLECTION 


Hardware 

The  H.P.  6944  multiprogrammer  handles  most  of  Copperhead’s  stockpile  surveil¬ 
lance  testing  by  means  of  a  multiwindow/multiline  testing  environment.  This  is  done  to 
allow  data  sampling  to  be  halted  temporarily  during  a  test  while  system  modifications 
are  made  to  accommodate  changes  in  test  requirements.  Modifications  might  include 
changes  in  tho  data  lines  being  sampled,  the  number  of  lines  looked  at  simultaneously, 
or  the  rate  at  which  they  are  being  sampled.  Other  changes  could  include  a  variation  in 
system  stimulus  or  a  modification  in  system  loading.  A  description  of  the  environment's 
operation  can  be  obtained  from  figure  1.  This  diagram  depicts  a  scanner/pacer  pro¬ 
duced  clock  pulse  (Pout)  which  triggers  the  simultaneous  sampling  of  data  lines  by  A/D 
converters  and  the  data’s  subsequent  storage  into  memory.  The  same  pulse  train  also 
defines  the  duration  of  an  initial  data  collection  window  by  means  of  a  count  limit 
programmed  into  the  counter.  Upon  reaching  the  count  limit,  a  pulse  is  generated  at 
the  counter’s  Carry-not  output  which  stops  the  scanner/pacer  and  starts  the  timer 
simultaneously.  The  counter  is  reprogrammed  at  this  time  to  a  count  limit  repre¬ 
sentative  of  the  next  data  collection  window's  irngth.  The  scanner/pacer  remains  idle 
until  the  completion  of  an  exact  and  predefined  idle  time  measured  by  the  timer.  The 
scanner/pacer  is  then  restarted  by  the  timer's  completion  of  process  (Cop-not)  pulse 
and  the  second  data  collection  window  is  begun.  The  process  is  repeated  until  three 
data  collection  windows  have  been  realized. 
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Software 


The  COPPER  test  program  begins  by  asking  the  user  to  specify  tests  which  are  to 
be  executed  from  the  menu  of  figure  2.  Upon  doing  so,  the  user  marks  certain  driver 
subroutines  for  execution.  Each  of  these  routines  has  been  written  and  customized 
specifically  for  the  test  it  represents.  Once  testing  begins,  each  driver  routine  calls  upon 
a  central  testing  routine  called  Testjrame  (app  A)  which  acts  to  implement  the  window¬ 
ing  system  previously  mentioned.  Scanner  channel  assignments,  window  lengths, 
sampling  rates,  and  scanning  schemes  are  all  activated  with  this  routine.  While  sam¬ 
pling  data  within  the  system’s  data  collection  windows,  driver  routine  defined  options 
are  implemented  which  allow  actions  to  be  taken  as  data  is  being  collected.  Such 
actions  are  implemented  in  the  Utility_switch  subroutine  of  appendix  A  and  may  include 
the  switching  of  relays,  attenuator  changes,  system  input  modifications,  metering,  or 
positional  changes  in  Copperhead  itself.  Once  a  particular  test  has  been  completed,  it 
passes  control  to  the  next  driver  routine  marked  for  execution  and  the  process 
continues. 

Test  Example 

The  following  is  an  example  of  one  of  the  30  tests  which  presently  use  the  win¬ 
dowed  data  collection  method  discussed  in  this  report.  The  test  is  called  Squib_driv 
and  it  makes  use  of  all  three  of  the  system’s  data  collection  windows.  The  Squib_driv 
routine  (app  A)  is  no  more  than  a  half  a  page  in  executable  code  length.  Inspection  of 
the  routine  provides  the  user  with  immediate  information  regarding  the  sampling  rate  of 
each  data  collection  window,  the  length  of  each,  and  the  scanner  channel  assignments 
during  each  window.  The  sampling  rates  of  each  of  the  three  windows  are  defined  by 
variables  Time_per_chan_1 ,  Time_per_chan_2,  and  Time_per_chan_3.  Variables 
Window_1,  Window_2,  and  Window_3  specify  window  lengths.  Finally,  the  scanner 
channels  used  can  be  obtained  from  the  values  of  the  W1,  W2,  arid  W3  prefixed  vari¬ 
able's  listed.  Variables  W1L1  and  W1L2  for  example  specify  the  first  and  second  data 
lines  of  window  one  as  scanner  channeis  0  and  32.  It  should  be  mentioned  at  this  point 
that  only  two  data  lines  can  be  sampled  in  the  first  and  third  data  collection  windows. 
Window  two  will  accommodate  four  data  lines  of  simultaneously  sampled  data.  The 
names  of  each  of  the  eight  data  lines  monitored  in  this  test  are  specified  by  the  name$ 
variables.  They  can  be  seen  to  have  been  defined  as  EA1  SQ  DR,  EA2  SO  DR,  30V 
BAT,  SGG  SQ  DR,  GAS  SQ  DR,  SGS  SQ  DR,  WUN  SQ  DR,  and  WEX  SQ  DR.  Once 
defined,  all  var.ables  are  used  during  Squib  driv’s  calling  of  the  Testjrame  routine  and 
the  test's  subsequent  execution.  Output  plots  of  each  of  the  three  data  collection 
windows  are  represented  in  figures  3  through  5. 
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CALIBRATION 


Data  Interface 

The  circuit  of  figure  1  depicts  one  cl  -  four  data  interfaces  used  to  acquire 
Copperhead  test  data.  Each  of  the  interfac  .  consists  of  a  voltage  divider  network, 
relay  scanner,  buffer  amplifier,  and  analog  to  digital  (A/D)  converter.  The  buffer 
amplifier  acts  as  an  interconnection  between  toe  data  line  being  monitored  and  the  A/D 
converter.  It  provides  a  low  output  impedance  required  by  the  A/D  and  a  high  input 
impedance  to  the  data  line.  The  relay  scanner  offers  an  economical  and  manageable 
means  of  multiple  data  line  monitoring  while  the  voltage  dividers  reduce  Copperhead 
outputs  to  voltage  levels  unable  to  saturate  the  buffer  amplifier.  The  interfaces  are  used 
in  concert  to  monitor  up  to  four  data  lines  simultaneously  or  as  many  as  128  in  a  multi¬ 
plexed  fashion.  Sampling  rates  of  2  microseconds  per  sample  can  be  realized  along 
with  a  total  data  collection  limit  of  60,000  data  points  per  test.  Measurement  accuracies 
are  limited  to  a  value  of  0.05%  due  to  the  resolution  of  the  A/D  range  being  used. 

Method  of  Calibration 

To  obtain  accuracies  as  high  as  0.05%,  it  is  necessary  that  the  divider  gains 
along  with  the  gains  and  offsets  of  the  buffer-amp/A-to-D  systems  be  precisely 
measured.  A  calibration  is  performed  for  this  purpose  providing  gain  and  offset  values 
which  are  then  stored  and  later  used  to  calculate  values  for  Vin  from  recorded  values  of 
Vo. 


Copperhead  calibration  begins  with  the  buffer-amp/A-to-D  systems.  Voltages 
from  -10  V  to  +10V  are  supplied  to  each  of  the  systems  without  the  divider  loads  at¬ 
tached.  A/D  output  voltages  are  obtained  for  each  value  of  the  input  voltages  applied. 
A  linear  curve  is  fit  to  the  data  using  a  least  squares  met  )d.  The  curve's  resulting 
slope  is  representative  of  tiie  system’s  voltage  gain  while  s  intercept  is  equivalent  to 
the  system  offset  voltage.  Such  a  calibration  makes  it  possible  to  adjust  for  changes  in 
gain  and  offset  while  distributing  errors  due  to  variations  in  the  system’s  linearity.  The 
gain  and  offset  obtained  from  the  calibration  of  a  particular  buffer-amp/A-to-D  system 
are  next  used  to  determine  the  gains  associated  with  each  of  the  dividers  used  on  that 
system. 


The  development  of  an  equation  for  the  divider’s  gain  begins  with  an  expres¬ 
sion  for  A/D  output  voltage,  Vo,  from  the  circuit  of  figure  1. 

Vo  =  Dg‘Sg*Vin  +  So  (1) 

Variable  Dg  represents  the  gain  of  the  divider  network  while  Sg  and  So  symbolize  the 
buffer-amp/A  to-D  system's  gain  and  offset  respectively.  The  divider's  gain  is  obtained 
directly  from  equation  1  in  the  form  of  equation  2. 


Dg  =  (Vo  -  So)/(Sg*Vin) 


(2) 


The  accuracy  of  Dg  is  directly  related  to  the  value  of  Vin  at  which  equation  2  is 
evaluated.  This  is  seen  from  figure  6’s  demonstration  of  how  small  instrument  error  in 
the  measurement  of  Vo  cause  significant  errors  in  divider  gain  when  calibrating  at  small 
values  of  Vin.  As  a  result,  equation  3's  subsequent  determination  of  Vin  (also  depicted 
by  fig.  6)  produces  large  voltages  errors  when  large  values  of  Vo  are  collected.  In  other 
words,  percentage  error  experienced  during  calibration  is  the  percentage  error  to  be 
expected  during  application. 

Vin  =  (Vo  -  Sc)/(Sg*Dg)  (3) 

Therefore,  Dg’s  calibration  should  be  done  at  as  high  an  input  voltage  value  as  possible 
in  an  attempt  to  minimize  errors  associated  with  instrument  accuracy  and  resolution. 
This  is  accomplished  through  the  application  of  a  high  voltage  pulse  narrow  enough  so 
as  not  to  exceed  divider  power  limitations. 

The  calibration  method  just  described  produces  measurement  accuracies  as 
high  as  0.05%  while  eliminating  the  need  for  a  time  consuming  -10  V  to  +10  V  calibra¬ 
tion  for  each  voltage  divider. 

Calibration  Software 

Data  interface  calibration  is  initiated  by  the  user’s  test  selection  menu  (fig.  2) 
choice  of  Ad  ld_cal.  Ad_ld_cal  is  found  in  the  appendix  and  begins  by  assigning  test 
operation  to  the  second  data  collection  window.  This  is  accomplished  by  making  the 
value  of  (Window_#/Time_per_chanl_#)  greater  than  one  for  #  =  2.  Window_2  repre¬ 
sents  the  window’s  length  in  seconds  while  Time_per_chanl_2  specifies  the  time  be¬ 
tween  data  samples.  A  window  length  and  sampling  time  of  63  seconds  and  15  ms 
respectively  can  be  seen  to  have  been  specified. 

Variables  Sw_windows  and  Sw_state  are  also  defined  in  Adjd  cal  for  use  in 
later  subroutines.  Once  in  Test_frame,  Sw_windows  is  used  to  direct  program  opera¬ 
tion  to  subroutine  Utility_switch  where  Sw_state  then  leads  the  logic  to  subroutine 
Drv_ps1c_rd_dvm.  It  is  in  this  routine  that  voltages  are  applied  to  the  inputs  of  the  four 
data  interfaces  via  scanner  channels  not  involving  divided  inputs.  Input  voltages  are 
stepped  from  -10  V  to  +10  V  in  1  0  V  increments  and  read  through  the  use  of  a  digital 
voltmeter.  Output  voltage  measurements  are  collected  by  the  A/D  converters  between 
the  time  the  scanner  is  started  and  stopped  as  passes  are  made  through  the  routine’s 
FOR  NEXT  loop.  After  collection  of  the  data  is  complete,  control  passes  to  the 
Plot  channels  subroutine  where  the  data  is  used  to  generate  linear  curve  fit  parameters 
representative  of  the  voltage  gains  and  offsets  associated  with  each  data  interface, 
i  hese  parameters  are  saved  and  made  immediate  use  of  during  the  second  phase  of 
data  interface  calibration. 
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The  second  phase  of  data  interface  calibration  takes  place  completely  within 
Ad_ld_cal.  Upon  the  program's  return  from  Test_frame,  each  scanner  channel  is  driven 
by  a  40  ms  wide  pulse  of  as  high  a  voltage  level  as  possible.  Again,  this  is  done  to 
obtain  high  calibration  accuracy  without  exceeding  divider  power  limitations.  Input  DVM 
and  output  A/D  voltages  are  again  collected  but  this  time  they  are  used  along  with  the 
curve  fit  parameters  of  the  first  phase  to  determine  the  exact  value  of  each  channel's 
divider  gain.  This  is  accomplished  through  the  use  of  equation  2.  An  example  of  the 
portion  over  which  a  typical  input  waveform  is  sampled  is  given  in  figure  7.  Because  of 
the  inability  of  the  input  source  to  supply  a  perfectly  flat  pulse,  care  must  be  taken 
during  this  phase  of  the  calibration  to  assure  that  input  and  output  samples  are  simul¬ 
taneously  collected.  Once  the  data  have  been  properly  collected  and  calculated,  results 
are  stored  along  with  fit  data  for  subsequent  use  in  equation  3. 

Gaussian  Input 

Many  of  the  tests  performed  on  a  Copperhead  unit  require  the  input  of  a  Gaussian 
type  pulse  used  to  simulate  the  laser  light  seen  by  the  round  during  operation.  An  H.P. 
8112A  pulsa  generator  and  H.P.  8496  attenuator  are  used  to  supply  this  pulse  to  a 
Copperhead  unit  during  testing.  The  Gaussian  pulse  setup  used  with  the  exception  of 
the  DVM  and  the  reconnection  of  channels  1,  2,  4,  and  5  as  Copperhead  inputs  are 
depicted  in  figure  8.  Since  one  generator  is  able  to  supply  a  pair  of  attenuators,  only 
two  are  needed  to  generate  the  four  Gaussian  pulses  required.  Because  the  amplitude 
of  each  pulse  must  be  supplied  exactly  according  to  the  specification,  a  calibration  of 
the  pulse  gonorator/attcnuator  combinations  must  be  performed  prior  to  testing. 

Method  of  Calibration 

Calibration  of  the  Gaussian  input  pulse  begins  with  the  determination  of  the 
pulse’s  amplitude.  While  the  test's  specifications  provide  pulse  genora'or  output  and 
attenuation  values  normally  sufficient  for  test  execution,  they  assume  the  use  of  a  puls; 
generator  with  an  output  amplitude  capability  above  that  of  the  HP  8112.  As  a  result,  it 
is  necessary  to  determine  the  actual  Copperhead  input  pulse  amplitude  required  so  that 
new  specifications  can  be  obtained  for  pulse  generator  amplitudes  and  attenuator 
settings.  This  is  accomplished  through  the  use  of  equation  4's  definition  of  dB. 

dB  =  20  *  log10(Vcop/vps)  (4) 
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Variable  Vcop  of  equation  4  represents  the  amplitude  of  the  signal  to  be  seen  by  Cop¬ 
perhead  while  Vps  is  the  pulse  generator  amplitude  required  by  the  specification. 
Solving  for  Vcop  and  specifying  the  attenuation  required  as  a  positive  number,  yields 
the  following: 


Vcop  =  Vps/(10<dB,20))  (5) 

A  new  value  fordB  can  now  be  obtained  based  on  an  empirically  chosen  pulse  genera¬ 
tor  amplitude  of  5  V.  These  new  values  for  pulse  generator  amplitude  and  attenuator 
dB  cire  then  implemented  to  produce  a  pulse  amplitude  which  is  checked  against  the 
desired  value  for  Vcop.  If  necessary,  fine  adjustments  are  then  made  to  the  pulse 
generator  and  attenuators  to  bring  the  resulting  pulse  in  line  with  the  specification. 
Since  attenuations  as  great  as  100  dB  down  from  10  volts  must  be  calibrated,  the 
accuracy  of  a  digital  voltmeter  is  used  to  measure  pulse  amplitude  (fig.  8).  A  DC  meas¬ 
urement  is  made  of  the  attenuators  output  over  170  cycles  of  a  1  kHz  50%  duty  cycle 
square  wave  input.  The  measurement  is  then  doubled  to  obtain  the  output  pulse  height. 
A  square  wave  input  is  used  instead  of  a  Gaussian  because  of  the  nonlinear  relation¬ 
ship  between  DC  measurements  made  on  Gaussian  curves  of  different  amplitude.  The 
calibration  procedure  just  described  is  done  entirely  by  the  software  in  an  automated 
fashion.  It  can  be  performed  on  a  test  by  test  basis  by  selecting  the  appropriate  C 
prefixed  test  name  from  the  test  selection  menu  of  figure  2. 

Calibration  Software 

When  one  of  the  test  agenda’s  C  prefixed  tests  is  executed,  it  calls  a  routine 
named  Set _  dB  out.  This  routine  determines  and  stores  pulse  generator  and  attenuator 
settings  which  together  realize  a  specified  Gaussian  pulse.  The  following  is  an  example 
of  such  a  call: 


Set_db_out(2,50,60,8) 

In  this  example,  attenuator  group  2  (fig.  8)  is  set  so  that  the  output  of  attenuators  C  and 
D  produce  respective  attenuations  of  50  dB  and  60  dB  down  from  10  volts.  A  test 
number  of  8  identifies  the  calibration  data  during  its  subsequent  calibration  data 
storage.  Inspection  of  subroutine  Set_dB  out  reveals  the  execution  of  equation  5  at 
line  10801  and  its  use  to  obtain  a  new  dB  value  on  line  10887.  A  measured  value  of 
true  dB  resulting  from  the  implementation  of  new  values  of  pulse  generator  output  and 
attenuator  settings  is  obtained  on  line  10910.  Fine  adjustments  to  the  pulse  generator 
and  attenuators  are  then  made  followed  by  the  storage  of  calibration  data  on  line 
10994.  These  values  are  later  recalled  and  used  a.  pulse  generator  and  attenuator 
settings  during  testing. 
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BURST  SAMPLING 


Most  of  the  tests  performed  on  a  Copperhead  unit  do  not  demand  extensive  data 
storage.  There  are  some  tests  however  which  monitcr  data  lines  over  long  periods  of 
time  at  a  high  sampling  rate.  These  tests  would  exceed  the  data  storage  limits  of  the 
system  if  sampling  were  performed  in  a  continuous  manner.  Since  continuous  sampling 
is  not  a  requirement  during  these  tests,  it  is  possible  to  sample  data  in  a  burst  fashion. 
During  a  burst  type  test,  measurements  are  taken  at  high  sampling  rates  for  short 
periods  of  time.  This  type  of  burst  sampling  is  of  particular  value  when  the  amplitude  of 
an  infrequently  occurring  narrow  pulse  is  to  be  determined.  It  provides  a  means  of 
acquiring  the  many  samples  needed  to  average  and  eliminate  the  effects  of  noise 
without  exhausting  available  memory. 

Burst  Hardware 

A  schematic  of  the  circuit  used  to  implement  burst  sampling  is  shown  in  figure  9.  It 
is  a  reconfiguration  of  the  hardware  of  figure  1  and  results  in  the  realization  of  bursting 
at  the  expense  of  windowing.  Switches  Swl,  Sw2,  and  Sw3  are  normally  open  for 
window  data  collection  but  closed  while  bursting.  Switch  Sw4  is  open  for  bursting  but 
closed  during  windowing.  Switches  5  and  6  are  both  closed  during  windowing  but  only 
switch  6  becomes  opened  while  bursting.  Figure  9's  operation  is  as  follows:  Once  the 
Start  signal  goes  and  remains  positive,  AND  gate  Al’s  output  is  enabled  to  follow  the 
Burst  Trigger  input.  Al’s  output  is  counted  at  input  1  of  the  counter  with  every  negative 
transition  of  Input  1.  Concurrently,  the  output  of  invertor  Inv  is  applied  to  the  external 
trigger  (Ext-not)  of  the  scanner  card.  When  enabled,  this  input  triggers  the  card  with 
every  negative  transition  it  sees.  This  in  turn  causes  a  burst  of  periodic  A/D  triggers  by 
means  of  the  scanner's  Pout  line.  Initially  however,  the  scanner’s  Ext-not  input  is 
purposely  locked  via  software  to  introduce  a  delay  before  bursting  begins.  Once  a 
software  defined  delay  has  been  reached  by  Input  1,  the  Borrow-not  output  pulses  low 
permanently  unlocking  the  Ul-not  input  by  means  of  AND  gate  A2.  This  enables  the 
scanner’s  Ext-not  input  and  permits  periodic  pulses  to  be  produced  at  Pout  with  every 
positive  excursion  of  the  Burst  Trigger  input.  The  counter’s  Eop-not  line  also  goes  low 
at  this  point  causing  Input  1  to  be  premanently  disabled.  Simultaneously  to  the  unlock¬ 
ing  of  the  scanner’s  Ext-not  input,  Ext-not  of  the  counter  is  also  activated  causing 
another  previously  set  value  to  be  loaded  into  the  counter’s  count  register.  This  is  the 
limit  count  which  defines  the  length  of  a  burst  and  is  reached  by  input  A's  counting  of 
Pout's  pulses.  Once  this  limit  is  reached,  the  Carry-not  signal  pulses  low.  This  causes 
the  Scanner  to  be  turned  off  and  the  counter's  count  register  to  be  reset  to  the  burst 
limit  by  way  of  Ext-not.  Sampling  remains  halted  until  the  next  positive  edge  of  the 
Burst  Trigger  input.  The  timer  card's  only  function  is  to  provide  an  output  which  is 
triggered  by  the  counter’s  Borrow-not  signal  upon  completion  of  its  initial  delay. 
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Burst  Software 


As  a  result  of  the  reassignment  of  system  components  from  a  windowing  to  a 
bursting  environment,  interruptions  in  the  bursting  period  cannot  be  made  without 
relinquishing  the  start  of  the  test  as  a  time  reference.  Such  interruptions  are  therefore 
not  permitted.  Consequently,  most  of  the  software  associated  with  bursting  is  pre-test 
related  and  can  be  found  in  the  subroutine  called  Burst_setup.  The  routine  begins  at 
line  1 1024  by  placing  switches  Swl,  Sw2.  Sw3.  and  Sw4  in  their  respective  burst  mode 
conditions.  The  timer  and  counter  are  then  cleared  followed  by  the  already  discussed 
disabling  of  the  scanner's  Ext-not  input.  The  counter  is  first  set  at  line  11049  to  a  value 
representative  of  a  delay  before  bursting.  The  duration  of  each  burst  is  then  set  on  line 
1 1054.  While  the  delay  count  is  only  processed  once  by  the  counter,  the  burst  count  is 
reloaded  and  used  after  every  execution  of  the  counter’s  Ext-not  input.  The  test  is  then 
begun  by  the  relay  closure  of  line  1 1070.  The  next  line  waits  for  the  completion  of  the 
sampling  delay  and  then  enables  analog  to  digital  converter  number  one  to  accept  data. 
Data  are  collected  until  memory  is  locked  out  on  line  11085.  The  scanner  is  then 
stopped  and  the  system's  configuration  is  returned  to  the  windowing  mode. 


MAJOR  SUBROUTINES 

When  one  of  the  30  driver  routines  which  comprise  Copperhead's  stockpile  sur¬ 
veillance  program  is  executed,  it  calls  upon  other  routines  to  perform  many  of  the 
operations  which  are  common  to  all  of  the  tests.  Three  such  subroutines  are 
Test,  .frame,  Utility_ switch ,  and  Store_run  data.  While  many  other  routines  are  also 
used  during  testing,  these  three  represent  the  heart  of  the  software  and  provide  an 
overall  picture  of  the  testing  process. 

Test_frame 

The  Test,  frame  routine  appears  in  the  appendix  and  begins  with  line  300's  setting 
of  the  four  system  A/D  ranges.  Ranges  from  0.1  volts  to  100  volts  are  available.  Calcu¬ 
lations  are  then  made  starting  at  line  410  to  obtain  the  number  of  triggers  to  be  counted 
by  the  counter  during  each  window  of  data  collection.  The  routine  continues  on  line  770 
by  setting  the  system's  counter  and  tinier  to  values  representative  of  the  test's  first  data 
collection  window  and  idle  time  respectively.  Memory  pointer  settings  follow  on  line  920 
along  with  the  specification  of  scanner  channel  assignments  and  sampling  period. 

Three  options  are  available  at  the  point  of  test  initiation  (line  1230).  Tests  can 
begin  from  within  Ihe  burst  subroutine,  by  the  software  start  of  line  1370  or  by  way  of 
the  relay  closure  of  line  1410.  Once  begun,  the  test  can  either  move  into  the 
Utility  switch  subroutine  or  continue  to  the  looping  code  of  statement  label  Spinl. 
Program  execution  loops  at  this  point  until  a  message  is  received  from  the  counter 
announcing  the  completion  of  the  first  data  collection  window.  The  second  data  collec- 
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tion  window's  system  parameters  are  then  set  followed  by  another  wait  loop  (label 
Spin2)  which  monitors  the  condition  of  the  timer  and  its  indication  that  ldle_time_1  is 
complete.  Upon  ldle_time_1 's  completion,  the  timer  is  reset  to  the  second  idle  time 
while  testing  enters  the  second  data  collection  window.  Again  the  test  is  offered  the 
option  of  entering  Utility_switch  or  waiting  for  the  completion  of  the  window.  The  third 
data  window  is  treated  in  the  same  fashion  as  the  first  and  second.  Upon  its  comple¬ 
tion,  the  tr  at  data  is  up  loaded  to  the  computer  via  the  lnput_rblock  statement  of  line 
3410.  The  data  is  then  stored  onto  hard  disk  via  the  Store_run_data  subroutine.  If  tne 
test  is  being  run  in  the  debug  mode,  the  user  has  the  option  at  this  point  of  either  listing 
or  plotting  the  test  data.  When  scrutinization  of  the  data  is  complete,  logic  is  directed  to 
the  next  test  to  be  executed. 

Utility_Switch 

Each  of  TesMrame’s  data  collection  windows  provides  an  opportunity  for  the 

execution  of  subroutine  Utility _ switch.  This  routine’s  main  function  is  to  offer  the  user 

the  ability  to  make  system  changes  while  sampling  is  in  progress.  Examination  of  the 
subroutine  (app)  demonstrates  its  use  of  the  Sw_state  variable.  This  variable  was 
previously  set  in  the  test's  driver  routine  and  functions  as  a  pointer  to  a  particular  course 
of  action.  Such  actions  include  the  setting  of  attenuations,  pulse  generators,  and  D/A 
converters;  the  calling  of  subroutines;  or  the  opening  and  closing  of  relays. 
Utility_switch  offers  the  user  a  great  deal  of  flexibility  and  can  also  be  called  directly 
from  the  test's  driver  routine. 

Store_run_data 

The  Store_run_data  routine  is  also  called  during  the  execution  of  Testjame.  It 
acts  to  store  down  loaded  6944  test  data  onto  hard  disk.  Data  are  taken  from  the  6944 
in  20,000  sample  groups  generally  representing  the  data  collected  during  one  data 
collection  window.  System  restrictions  then  cause  each  20,000  group  to  be  broken  up 
and  finally  stored  in  five  4,000  sample  long  records.  The  data  are  later  retrieved  for 
inspection  by  the  Get_run_data  routine. 


ANALYZE 

Most  of  the  discussion  thus  far  has  dealt  with  the  Copperhead  stockpile  surveil¬ 
lance  program's  data  collection  software.  The  collection  of  data  however  would  be 
meaningless  without  a  procedure  for  its  Analysis.  Data  analysis  is  realized  through  the 
execution  of  the  computer  program  called  analyze.  Its  format  is  similar  to  that  of  the 
Copper  program  in  that  it  consists  of  driver  subroutines  which  are  chosen  from  a  menu 
and  then  used  to  drive  one  central  testing  or  in  this  case,  analyzing  subprogram. 
Analyze’s  central  analyzing  subroutine  is  called  Main  frame  and  is  used  to  scrutinize 
the  data  collected  on  a  data  line  by  data  line  basis.  Pulse  heights  and  their  times  of 
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occurrence  are  check  against  test  specifications  and  then  reported  along  with  deter¬ 
minations  with  regard  to  unit  acceptance  or  failure.  Analyze's  Squib_driv  routine  (app) 
can  be  used  as  an  example  of  the  format  used  when  data  line  levels,  their  edges  of 
definition,  and  measurement  tolerances  are  supplied  to  the  program.  Lines  11179 
through  11197  depict  matrix  like  arrangements  of  input  data  and  their  respective  read 
statements.  The  columns  of  each  matrix  represent  the  data  associated  with  one  of  the 
eight  data  lines  able  to  be  monitored  during  a  test  while  each  row  represents  another 
line  condition  to  be  met.  During  a  Squib_driv  analysis  for  example  pulses  of  10.77  volts 
+5  mv  are  checked  for  on  lines  one  and  two.  Rising  and  falling  edges  of  5  ms  and  25 
ms  +5  ms,  respectively,  must  also  be  found  if  the  test's  specification  is  to  I  :  satisfied. 
Voltage  levels  are  determined  by  an  averaging  of  the  data  between  a  specified  start 
time  after  level  transition  and  the  line's  next  transition  in  level.  A  typical  level  measure¬ 
ment  is  demonstrated  in  figure  10. 


CONCLUSIONS 

The  testing  methods  and  software  used  to  support  the  Copperhead  stockpile 
surveillance  program  have  proven  to  be  both  accurate  and  versatile.  This  has  been 
exemplified  by  their  ability  to  readily  support  the  different  requirements  of  over  30  tests 
thus  far.  Windowed  data  collection  has  been  seen  to  be  an  excellent  means  of  accom¬ 
modating  a  variety  of  test  configurations  within  a  standardized  framework  of  operation. 
The  many  options  available  during  a  standard  windowed  test  have  provided  the  ability 
to  customize  the  system  to  a  particular  test  with  a  minimal  of  programming.  The  calibra¬ 
tion  methods  used  have  produced  the  highest  system  accuracies  possible  and  will,  as  a 
result,  produce  reliable  Copperhead  trend  analysis  data.  The  test  system  described  in 
this  repoit  provides  the  Advanced  Technologies  Laboratory,  ARDEC,  with  a  ready 
means  of  collecting  and  analyzing  data  in  an  accurate  and  responsive  manner.  While 
the  software  written  thus  far  satisfies  the  requirements  necessary  for  the  completion  of 
Copperhead's  electronic  package  testing,  work  on  the  round’s  live  sequence  test 
continues. 


DATA  INTERFACE 


Figure  1.  Widowed  data  collection  hardware 


TEST  SELECTION  MQJU 


SPECIFY  A  TEST  AGENDA  FROM  THE  FOLLOWING  LIST  USING  THE  ARROW  KEYS 
AND  THE  COMMAND  MENU  BELOW.  ONLY  'CONTINUE'  AFTER  ALL  OF  THE 
TESTS  TO  BE  INCLUDED  HAVE  BEEN  SELECTED  AND  MARKED  BY  AN  . 


TA-GE-CDC 

CAL 

NOISE  AGC 

TST 

SPIN  TORQ 

TST 

NOISE-AGC-A 

CAL 

PWD 

TST 

FREE  GYRO 

TST 

NOISE-AGC-B 

CAL 

SJI 

TST 

CAGE  GAIN 

TST 

PWD  . 

CAL 

DYN  THRESH 

TST 

GIM  CNSTRT 

TST 

SJI-A 

CAL 

CODING 

TST 

PCH  YAW  LS 

TST 

SJI-B 

CAL 

PULSE  AGC 

TST 

GRAV  BIAS 

TST 

DYN-THRESH-A  CAL 

SKR  GMHL  ANG  TST 

GUID  GAIN 

TST 

DYN-THRESH-B  CAL 

CPT  COM  PWR 

TST 

ATT  HLD  GN 

TST 

CODING 

CAL 

ROLL  GAIN 

TST 

C  PYL  20 

CAL 

PULSE-AGC-A 

CAL 

A/D  LOAD 

CAL 

C  PYL- 30 

CAL 

PULSE-AGC-B 

CAL 

SWS  DIS  TST 

TST 

C  PYL  40 

CAL 

SQUIB  DRIVE 

TST 

CONTINUITY 

TST 

C  PYL  50 

CAL 

TA-GE-CDC 

TST 

SPIN  DRIVE 

TST 

C  PYL  60 

CAL 

CONTINUE  (UN)SELECT  NEXT  PAGE  SELECT  ALL  UNSELECT  ALL 


NOTE:  This  is  page  1  of  a  2  page  menu. 


Figure  2.  Test  selection  menu 
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Window  1  Squib  driv  data 


Figure  4.  Window  2  Squib  driv  data 
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Figure  7.  Divider  network  calibration  sampling 


gu re  8.  Gaussian  calibration  circur 
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Figure  9.  Burst  sampling  configuration 


Figure  10.  Typical  Analyze  level 
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PROGRAM  SUBROUTINE  INOEX 


10  SUB  Test Jr*m 

6800  SUB  Utility  suitch 

7960  SUB  Squib_dri v  !  PAR  68 

8780  SUB  Ad_ld_cel 

10800  SUB  Drv_ps1c_rd_dvro 

10848  SUB  Set_dbjxit(Atten__grp,Db«,Dbb, Test_no) 

11002  SUB  Burst_setup<Trigs1 , Idlest ime_1 ) 

11121  SUB  Store^runjiataCVolts^J.To^seirpleSfUait^timefRe^num) 

11145  SUB  Get^run^dataCVoltsC^Tot^samples.Uai t_t  ime,Rec_num) 

11170  SUB  Squib_driv( Analyze)  !  PAR  6B 


10  SUB  Test  frame 

20  I 

30  I  ■iiiaiuiH»i»iuaiHnHUHiHuuHiuann»u«u:iaui 

40  I  ■  1475ZA  TEST  PROCEEDURE  SKELETON  • 

50  I  CONSISTING  OF  THREE  VARIABLE  DATA  COLLECTION  UINOOUS 

60  I  AND  TUO  IDLE  UINOOUS  USED  FOR  CARO  PARAMETER  ADJUSTMENTS. 

70  !  ..a................a.aa.a....a..........a.....a.aa.a.a...a.a. 

80  ! 

90  COM  /Names/  Scanner ,Cnt_tot,A_d1 ,A_d2, Mu l tijxif fer , Timer _pacer,T imer_1  ,Rel 


ay  dl  s7,Relay  d1_sfl, Relay  dl  s9,Relay_d1  *10 
1  GO  "COM  /Names/“A_d3 ,  A_d4 f o'a  1 , D_a2 ,  D  ji3 , D_r  4 

110  COM  /Test  config/  Time _per  chan  1,Timejjer  chan  2,Tirot_per  chan_3, Window  1 
lUindow_2fWindow_3,Name$(20)(1037u1u7uH2fU2l1fU2l2fU2l3fU2l4fU3n,u3l2 
120  c5m  /Test_conf ig/  Chans_per_scn_1  ,Chans_per_scn_2,Chans_per_scnJ$,  Idle_t  im 
e  1 # Idle  time  2 

130  COM  /Relay*/  Reela_d1_s/(*),Reela_d1_s8(*),Reela_d1^s9<*),Reela_d1  j?10(*) 
140  COM  /Switch/  Sw  »tate(4),Srh,Sw_windows,Wai t  gate(37 
150  COM  /Te*t_select/  Fi  IS<1 :72)  [80T,HarkS[21  ,Test_name$iaO] 

160  COM  /Scanner/  Numb_of_scanaf Chan l«_pe rescan, Sampl ing_rate,Ti me _per_chanl,C 
hanne L »( 1 00 )# Ranges (100), I nt r_f lap  Test _j»riod, F i r*t_&can,Last_scan#Coef 7l ) 

170  COM  /Keep/  Igrfcnt,J  chan  low, Vi  Ingth 

180  COM  /Volts  data/  Vol tsl <20000, 1 )7volts2( 20000, 1),Volt*2b(20000, 1),Volts3<2 
0000, 1 ),0at_cnt(4) 

190  COM  /CaL_fact/  Cal_gain(2Q,20),Cal _of f (20,20) , J_chanjot , J_chan_beg,Dvm_vol 
ts(  100) , Ad  vol ts( 110), Load  gain(130),  Ircnt 
200  DIM  Wind  start(4) 

210  Wind  $tart(1)»0 

220  ALLOCATE  Clear  linSC75] 

230  Clear_l in$*RPT$("  M,74) 

240  Chanls  _per_scan»1 

250  lgrfcnt*0 
260  J_chan_lou*Q 
270  Tot_samples»20000 

280  Nunb_Qf_scans»Tot_sanipl  es/Chanl  s_p«r_scan 
290  SiQn*‘l" 

300  Range*10 

310  Set_range(A_d1 .Range) 

320  Set_range(A_d2, Range) 

330  Set^rangeCAjiS, Range) 

340  Set  range(A  d4, Range) 

350  » 

360  Vol tsjaer_bi t*Range*5 .E *4 

370  ALLOCATE  Volts(Nunb  of  scans*1000 , Chanls _per  scan-1) 

380  ALLOCATE  Vf Ilt(20100, 1 ) 

390  Set  swi tches( Scanner , 1 ) 

400  I 

410  !  GET  COUNTER  TOTALIZER  COUNTS  FOR  THE  THREE  0ATA  COLLECTION  WINDOWS. 

420  i 

430  Set_trigs:  I 

440  Trigs*Window_1/Time_p«r_chan_1 

450  IF  (CINT(Trigs)  MOO  I NT7chanTs_p«r  scan))<>0)  THEN 
A60  PRINT 

470  PRINT  “ERROR  •  THE  WINDOW  REQUESTED  CANNOT  GENERATE  AN  INTEGER  NUMBER  OF*1 

480  PRINT  «  SCANS,  THE  UINOOW  SPFLIFIED  MUST  BE  A  MULTIPLE  OF  THE  " 

490  PRINT  “  THE  TIME  REQUIRED  «U  COMPLETE  ONE  FULL  SCAN." 
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500  PRINT 
510  STOP 
520  END  IF 

530  Triflsi =65536- Trigs 
540  I 

550  Trigs*Window_2/Time_per  chan_? 

560  IF  (CINTC Trigs)  MOO  INTCChans _per  sen  2))<>0)  THEN 
570  PRINT 

580  PRINT  “ERROR  -  THE  WINDOW  REQUESTED  CANNOT  GENERATE  AN  INTEGER  NUMBER  OF" 

590  PRINT  "  SCANS.  THE  WINDOW  SPECIFIED  MUST  BE  A  MULTIPLE  OF  THE  11 

600  PRINT  «  THE  TIME  REQUIRED  TO  COMPLETE  ONE  FULL  SCAN." 

610  PRINT 
620  STOP 
630  ENO  IF 

640  Trigs2-65536-Trigs 
650  ! 

660  Trigs3*Windou  3/Time_per  chan_3 

670  IF  (< lNT(Trigs3)  MOO  lNTCChanls_per_scan))<>0)  THEN 
680  PRINT 

690  PRINT  "ERROR  -  THE  WINDOW  REQUESTED  CANNOT  GENERATE  AN  INTEGER  NUMBER  OF" 

700  PRINT  »  SCANS.  THE  WINDOW  SPECIFIED  MUST  BE  A  MULTIPLE  OF  THE  " 

710  PRINT  "  THE  TIME  REQUIRED  TO  COMPLETE  ONE  FULL  SCAN." 

720  PRINT 
730  STOP 
740  END  IF 

750  Trigs3=65536-Trigs3 
^0  I 

770  I  SET  COUNTER  TOTALIZER  TO  FIRST  WINDOW  COUNT. 

780  I 

790  OutputCCnt  tot.Trigsl) 

800  I 

810  I  SET  TIMER/PACER  TO  FIRST  IDLE  WINDOW. 

820  I 

830  Preset(Timer_pacer, Idle  time_1) 

840  I 

850  !  DISABLE  A/Ds  3  AND  4 

860  ! 

870  Disable_extrigCA_d3) 

880  Disable_extrigCAj34) 

890  Disablejnxctrl(A_d3) 

900  DisablejnxctrlCA  64) 

910  I 

920  !  SET  UP  MEMORY  AND  THE  SCANNER  FOR  THE  FIRST  DATA  COLLECTION  WINDOW. 

930  I 

940  Wri  te_di  f_count(Mul  t  f_buf  fer,0) 

950  Wri te~wpo inter (Multi _buffer,0) 

960  Wri  te_rpointerCMulti_txjf  fer, 61000) 

970  Set_ext_pacingCScanner) 

980  Ser^crosspoint(Scanner) 

990  Set_swi tchesCScanner , 0) 

1000  *i te_s tar t_chn( Scanner ,  W1 l 1 ) 

1010  $et_swi tchesCScanner, 1 ) 

1020  Uri te_start_chn( Scanner ,  W1 12) 

1030  Set_swi tchesCScanner, 1 ) 

1040  Ur i te_start_chn<b  annerfW2l3) 

1050  Set^swi tchesCScanner, 1 ) 

1060  Uri t e_$ tar t_chn( Scanner ,W2 14) 

1070  Set_svi tchesCScanner, 1 ) 

1080  Set_pefi odC Scanner, T ime_per  chan_1 ) 

1090  I 

1100  GOTO  No  old_data  !  REMOVE  TO  USE  OLD  RUN  DATA  REVOVERY 
1110  PRINT 

1120  PRINT  "TYPE  ENTER  TO  START  THE  SCANNER  OR  'R'  AND  ENTER  TO  RE-STORE" 

1130  PRINT  "DATA  FROM  THE  PREVIOUS  RUN." 
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1140 

Ans$*,,M 

1150 

INPUT  AnsS 

1160 

IF  (Ans$<>»«)  THEN 

1170 

GOTO  Data_out 

1180 

END  IF 

1190  No  old  data:  1 

1200 

! 

1210 

Burst«0 

1220 

! 

1230 

1  CHECK  FOR  BURST  MCOE. 

1240 

| 

1250 

IF  <Srh*11 )  THEM 

1260 

Bur«t»1 

1270 

CALL  Burst  setup(Trigs1 ,  ldl*_timO ) 

1280 

END  IF 

1290 

CALL  Set  reli  dl  s7<10,1)  !  CLOSE  TIMER  COPNOT  TO  SCANNER 

EXTNOT 

1300 

WAIT  Z.OE-2 

1310 

SELECT  Srh 

1320 

CASE  0,11  1,111 

1330 

CALL  Set_rele_d1_s7(12,0)  1  EXTRA  PROTECT  TO  KEEP 

COM2  ANO 

SRH  FROM  SCANNER 

1340 

WAIT  2.0E-2 

1350 

CALL  Set  rela  dl  s10(16,0)  !  OPEN  MASTER  RESET 

1360 

WAIT  2.0E-2 

1370 

Stsrt(Scanner) 

1380 

CASE  ELSE 

1390 

CALL  Set_rel«_d1_*10(16,0)  1  OPEN  MASTER  RESET 

1400 

WAIT  Z.OE-2 

1410 

CALL  Set  rela_d1_s7(9, 1 )  1  START  SCANNER  ANO 

SRH 

1420 

CALL  Set~rela_dl""*7(7,0)  1  OPEN  SRH  GRCUNOS 

1430 

CALL  Set“rele~dl”»7(8,0) 

1440 

END  SELECT 

1450 

WAIT  1.5E-2  1  WAIT  FOR  RELAYS  TO  FINISH  THEIR  TRANSITIONS 

1460 

UAIT  (Uindou  1)*.666*Uait  gated) 

1470 

IF  (Sw  windows>12)  THEN 

1480 

CALL  Utility  switch  1  CHANGES  ATTENUATORS  IF  SUITCH 

HAS 

BEEN  ENABLED  iH 

1490 

!  DRIVER  ROUTINE. 

1500 

Su  uindous=Sw_windows-10Q 

1510 

END  1 F 

1520 

CALL  Set  rcla  dl  s7(12,0)  1  KEEPS  COM2  ANO  SRH  FROM 

SCANNER  EXT-NQT  AFTER 

1530 

1  THE  START  OF  THE  TEST 

VIA 

SRH 

1540  Splnls! 

1550 

Check  doneCCnt  totfCnt  flag)  1  CHECK 

FOR 

COUNT 

COMPLETION 

1560 

IF  <Cnt_f lagoT)  THEN  * 

1570 

GOTO  SpTnl 

1580 

ELSE 

1590 

END  IF 

1600 

! 

1610 

!  FIRST  DATA  COLLECTION  WINDOW  IS  COMPLETE. 

1620 

1 

1630 

Reiidj^po  inter  (Hu  1 1 t  _buf  fer  ,Ans) 

1640 

Uind_start(2)*Ans 

1650 

! 

16601 

RESET  COUNTER  TOTALIZER  TO  SECOND  WINDOW  COUNT, 

SCANNERS 

TO  NEU 

1670! 

POSITIONS,  AMO  SAMPIIMG  RATE  TO  ITS  NEW  VALUE. 

1680 

1 

1690 

Output ( Cnt_tot ,Tri gs2) 

1700 

Set_swi tches(Scanner,0) 

1710 

Wri te_start_chn(Scanner, W21 1 ) 

1720 

Set_swi tches(Scanner , 1 ) 

1730 

Wr i te_start_chn(Scanner,U2l2) 

1740 

Set_swi tches( Scanner, 1 ) 

1750 

Ur i te^start _chn(Scanner , W213) 

1760 

Set_swi tches( Scanner, 1 ) 

1770 

Wri te_start_chn(Scanncr,U2l4) 
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1780  Set_swi tches(Scanner, 1) 

1790  Setj>eriod( Scanner, Time j^er  chan  2) 

18001 

1810  I  ENABLE  A/Ds  3  AND  4 
1820  I 

1830  Enable_extrig(A_d3) 

1840  Enable_extrig(A_d4)  * 

1850  Enablejnxctrl<A_d3) 

1860  Enable  mxctrUA  64) 

1870  I 
1880  Spin2: ! 

1890  Check  done(  Timer  jMcer,Tp  flag) 

1900  IF  (Tp  flagol)  THEN 

1910  GOTO  Spin2 

1920  ELSE 

1930  I  PRINT  "IDLE  WINDOW  1  IS  COMPLETE." 

1940  END  IF 

1950  I 

1960!  RESET  TIMER  PACER-  TO  SECOND  IDLE  WINDOW  VALUE. 

1970! 

I960  Preset (T imer_pacer, Idlest ime_2) 

1990  Ti  nie_pcr^chanl»T  ime_per  chan  2 
2000  I 

2010  Uai t_time«Window  2 

2020  WAIT  Wai t_time*.66*Wai t_gate(2) 

2030  IF  (Su_windows>2)  THEN 

2040  CALL  Utility_suitch  !  CHANGES  ATTENUATORS  IF  SWITCH  HAS  BEEN  ENABLED  IN 
2050  I  DRIVER  ROUTINE. 

2060  Sw  windows«$w  windows- 10 
2070  END  IF 
2080  Spin3:l 

2090  Check  done(Cnt  tot,Cnt  flag)  !  CHECK  FOR  COUNT  COMPLETION 

2100  IF  <Cnt  flagol)  THEN  " 

2110  GOTO  SpTn3 

2120  ELSE 

2130  END  IF 

2140  ! 

2150  I 

2160  !  SECOND  DATA  COLLECTION  WINDOW  IS  COMPLETE. 

2170  I  SECOND  IDLE  WINDOW  IS  ASSUMED  TO  BE  IN  EFFECT. 

2180  I  NOW  SET  UP  THE  SCANNER  CARO  FOR  THE  THIRD  DATA  COLLECTION  WINDOW. 

2190  I 

2200  I  DISABLE  A/Os  3  AND  4 
2210  ! 

2220  Disable_extrig<A-d3) 

2230  Disable_extrig(A_d4) 

22^0  Disable  mxctrl(A  d3) 

2250  Di$eble~mxctrl(A~d4) 

2260  I 

2270  Output ( Cnt^tot , Trigs3) 

2280  Set_su i tches<  Scanner , 0 ) 

2290  Uri te_start_chn( Scanner, W311 ) 

2300  Set_sui tches(Scanner , 1 ) 

2310  Uri te_s tar t_chn( Scanner, W3 12) 

2320  Set_swi tches(Scanner,  1 ) 

2330  Set j3flriod(Scanner, T ime_per_chan  3) 

2340  I 

2350  Read_wpointer(Mult i_buf fcr,Ans) 

2360  Wlnd-start(3)»Ans 
2370  Spin4:T 

2380  Check  done(Timer  pacer, Tp_f log) 

2390  IF  (Tp_f lag<>1 )  THEN 

2400  GOTO  Spin4 

2410  ELSE 
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2420  PRINT  "IDLE  WINDOW  2  IS  COMPLETE." 

2430  END  I F 

2440  I 

2450  Wait  time»Uindou  3 
2460  I 

2470  UAIT  Wait  tiroe*,66*Uaj t  gate(3)  I  ALLOW  TIME  FOR  THE  THIRD  DATA  WINDOW  TO 
COLLECT  DATA. 

2480  IF  CSw  windows>0)  THEN 

2490  CALL  Utility  switch  I  CHANGES  ATTENUATORS  IF  SWITCH  HAS  BEEN  ENABLED  IN 
2500  ~  I  DRIVER  ROUTINE. 

2510  Sw  windows-0 
2520  END"lF 
2530  I 
25401 

2550  Spin5: I 

2560  Check_done(Cnt  tot,Cnt  flag)  I  CHECK  FOR  COUNT  COMPLETION 

2570  IF  (Cnt  flagoT)  THEN  " 

2580  GOTO  SpTnS 

2590  '  ELSE 

2600  END  IF 

2610  ! 

2620  Enable  lockout (Hul t i  buffer) 

2630  ! 

2640  !  THE  TEST  IS  OVER. 

2650  I 

2660  Ua  i  t  i  me«W  1  ndou_1  + 1  d  l  e_t  i  me_1  +U I  ndou_2+  Idlest  1  me_2+U  i  ndou_3 

2670  Startjt»0 

2680  Stop_x»Uait_t fme 

2690  StartjtjildlQ 

2700  Stop  x  old»Wait  time 

2710  I 

2720  PRINT  "SCANNER  HAS  BEEN  STOPPED." 

2730  I 

2740  CALL  Set_rela  dl  *7(10,0)  I  T/P  COPNOT  TO  SCAM  EMTNOT 
2750  WAIT  2.0E-2 
2760  StopC Scanner) 

2770  UAIT  1.Q0E-1 

2780  Checkjdone(Timer_pacer,Dum) 

2790  Check_done(Cnt_tot,0um) 

2800  StopC Scanner) 

2810  CALL  Q1sab_sup$_da 
2820  Set  suitchftsCScanner.O) 

2830  I 

2840  I  PREPARE  FOR  AN  UPLOADING  OF  DATA  FROM  THE  6944. 

2850  I 

2860  Read  rpoint«r(Mut ti  buffer, Rent) 

2870  PRINT  "REAO  POINT  -"".Rent 
2880  Read_upointer (Multi  buffer, Went) 

2890  PRINT  "WRITE  POINT  *  »,Uenr 
2900  Read_di f^count(Hulti_buf fer,Cnt ) 

2910  PRINT  mdTf  COUNT  ■  M7cnt 
29201  ALLOCATE  Volts(999,2) 

2930  Set_f i fo_in(Mul ti_buffer) 

2940  Wrl t e_rpo inter (Hul ti_buf fer f 0) 

2950  Uri te  wpointer(Mult1  buffer ,64000) 

2960  CONTROL  32,1;0 
2970  Hux_rvo«2 

2980  Tot__san^)le»-((WincjowJ/Timtj5er_chanJ)*2‘»-(Window_2/Timej5er_chan^2)*4+(LU 
ndou_3/Time_per_chan3)*2)~ 

2990  PRINT  "TOTAL  SAMPLES  NEEDED  *  ",Tot_sairples 
3000  Tot_sanples»20000 

3010  Dat_cnt<  1  )*(2*Window_1/(T  i  rr^jDer^chan^^Chansjjer^tcn^l ) )  - 1 
3020  Dat_cnt(2 )*(4*UindowJ>/< T ime _per_chan_2*ChansjDer_scn_2) ) - 1 
3030  Dat_cnt(3)a(2*UirxiowJS/(T  ime_pf»r_chan_3*Chans_per_scn_3) ) - 1 
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3650  IF  <AnsS="B")  THEM  Temp*2 

3660  IF  (Ans$*HCM)  THEN  Temp=4  ITEMP-6  FOR  AD-2 

3670  IF  <Ans$a"DH)  THEM  Temp=6 

3680  GOTO  Hop_over 
3690  END  IF  ~ 

3700  PRINT  TABXY<1,18);Ctear  lin$ 

3710  Rep:  « 

3720  PRINT  TABXY(1 , 19);Clear  linS 

3730  PRINT  TABXY(1 , 19);"TYPE'lN  THE  NUMBER  OF  THE  CHANNEL  YOU  WISH  TO  PLOT. 
3740  INPUT  AnsS 
3750  Test-NUMCAnsS) 

3760  IF  (Test<48  OR  T*st>57)  THEN 

3770  PRINT  TABXY< 1 < 18);MA  NUMBER  MUST  BE  SUPPLIED  AT  THIS  TIME." 

3780  GOTO  Rep 

3790  ENO  IF 

3800  TempaVAL(AnsS) 

3810  Hopjaver:! 

3820  J_chan_strt*Temp 
3830  J^chan^s top* Temp 
3840  Chanl$j3er_scan*Chans_per_scn_2 
3850  Timejxr_chanl*Time_per_chan_2 
3860  Jj:hanjDta2 

3870  T  of f_setaU indow_1* ldle^ti me_1 
3880  IF  (j“chan_strt<2)  THEN* 

3890  chanls_per_scan«Chans_per_scrM 
3900  Time  _per_chanl«T i me_p« r _ch an  JF 
3910  J_chan  J3t»0 
3920  T~off_set«0 
3930  ENO  IF 

3940  IF  <J_chan_*trt>3)  THEN 

3950  J_chan  J3t»4 

3960  T  off  set«Uindow_1+ Idlest ime_1 

3970  ENO  IF 

3980  IF  C J_chan_strt>5)  THEN 

3990  J_chan  _pt*6 

4  000  T^o  f  f  _se  t -W  f  ndou_  1 + 1  d  l  e_t  f  me_1  ♦  W  i  ndow_2+  Idlest  i  roe_2 
4010  rime  j*r_chanl»TTm«_p«r_chari__3 
4020  Chanlsj»r_scfln«Chans _per  sen  3 
4030  END  IF 

4040  SELECT  J  chan_pt 

4050  CASE  -0  ~ 

4060  Rec  num*1 
4070  CASE  2,4 

4080  Rec  nun"6 

4090  IF  Toil  cnt(lD<*20)  THEN  Rec  numal 
4100  CASE  *6 

4110  Rec  num*-11 

4120  IF  <:Dat_cnt<1)<-20)  THEN  Recjium* Rectum- 5 
4130  IF  (Dat"cnt(2)<=?0)  THEN  Rec*nutv»Rec*num-5 
4140  END  SELECT 

4150  IF  C Srh=»  1 )  THEN  '  CHECK  FOR  SCANNED  AND  MUXED  CASE  WITH  ONE  60K 
4160  I  COLLECTION  WINDOW. 

4170  SELECT  J  chan_pt 

4180  CASE  0,176,7 

4190  T  off_set*T  off  set+Time_p«r_chanl*100Q 

4200  CASE  ELSE 

4210  T  off_set»T  off  set+T ime_p«r  chanl*5GQ 

4220  END  SELECT  * 

4230  Ta_start*0 

4240  Ta_stop*T_off_set-Time_per_chanl*ChanU_per_scan 

4250  Tb_start*T_of f  set 

4260  Tb_stop*2*T_of  f_set-T  irr»e_per_chanl*Chanls_per_scar; 

4270  Tc_start»2*T_of f_sct 

4280  Tr _stop^3*T_of f_set- T i me_per_chanl *Chanls_per_scan 


3040  » 

3050  !  CREATE  RUN_DATA  AT  THE  CORRECT  LENGTH 

3060  I 

3070  PURGE  M/FTM/H0MEJ) IROO/RUN_DATA: , U00« 

3080  Recs-0 
3090  l  top-3 

3100  IF  (Srh-1)  THEN  1  top-3 
3110  FOR  Krec-1  TO  I  top 

3120  IF  (Oat  cnt(Krac)>20)  THEN  Rec$»R«:*+1  I  OR  SRH-1  ALSO  ? 

3130  NEXT  Krac 
3140  Recs-Recs*5 

3150  CREATE  BOAT  'VFTH/HOHE  O1R00/RUN  DATA: # 1400“ #Racs ,32100 
3160  I 

3170  IF  (Burst-1 )  THEN 
3180  Uind_start(1 )-0 
3190  Ufnd_start(2)-20000 
3200  Uind~start(3)«40000 
3210  ENO  If 

32201  IF  CSrh-12  OR  Srh»13)  THEN 

32301  Wind_start(1)»Q 

32401  Uind-start(2)=0at_cnt(1 ) 

32501  Wind  start(3)=Dat_/:nt(1  )+0at_cnt(2) 

32601  ENO  If 
3270  Kpas-0 
3280  1  top-3 

3290  IF  (Srh-1 )  THEN  I  top-3 
3300  FOR  I pas* 1  TO  I  top 

3310  IF  ((Dat_cnt(Ipas)>20)  OR  (Srh-1))  THEM  I  SKIP  OVER  IF  DATA  UINDOU  IS  A 
DUMMY 

3320  Kpat-Kpas+1 

3330  Rac_nuw»(Kpas-1 )*5*1 

3340  Urita_rpointar(Mul tl  buffar,Uird  start(Ipas)) 

3350  IF  (Srh-1)  THEN 

3360  Urfta  rpolntar<^ulti  buf  far,  Upas- 1  >*20000) 

3370  END  I F~  ~ 

3380  I 

3390  I  UPLOAD  DATA 
3400  I 

3410  Input_rblock(Nult1  buf  fer.Vol  ts(*)  Jot  samples)  I  STORED  WITH  RIGHT  VARIES 
MOST 

3420  CALL  Stora  run  d«ta(Vol  ts(* )  Jot  samples, Walt  tiroe,Rec  num) 

3430  END  IF 

3440  NEXT  Ipas 
3450  CONTROL  32,1;1 
3460  Mcnt-0 
3470  Data_out:  !  • 

3480  Qat_cnt(1 )-(2*Window_1/(T fme_per_chan_1*ChansjDer_scn_1 ) )- 1 
3490  Uar _cnt<2)*<4*Uindou_2/(Tima_p€r~chan~2*Chans_per~scn~2) )- 1 
3500  De».j:nt(3)*(2*Wlndow  3/(T  ima_per_charT3*  Chans  jDer~acrT3)  )-1 
3510  PRINT  TABXY(1,18);Clcar  llnl 

3520  PR  INI  7a8XY(1 f 19);Claar  lint 

3530  PRINT  TA0XY(1 , 20);Clear~l  in* 

3540  ! 

3550  PRINT  TABXYC1, 18);"DQ  YOU  WISH  TO  (L)LIST  OR  (P)PLOT  THE  DATA  7"; 

3560  I 

3570  INPUT  PathS 

3580  IF  (PathS*"L»)  THEN 

3590  PRINT  TABXY(1,18);Claar_Un* 

3600  PRINT  TABXY( 1 , 18) ; “TYPE* IN  THE  LETTER  OF  THE  CHANNEL  GROUP  YOU  WISH  TO  LIS 
T." 

3610  PRINT  "(A)*0, 1  (B)*2,3  (0-4,5  (D)-6,7»  I  INSTEAD  OF  LINE 

3620  ) ABOVE  AD -2 

3630  INPUT  AnsS 
3640  Temp=0 
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4290  PRINT 

4300  PRINT  "SCANNED/MUXED  DATA  IS  VIEWED  IN  THE  FOLLOWING  GROUPS:" 


4310  PRINT 

4320  PRINT  "  GROUP  START  TIME  STOP  JIHE" 

4330  PRINT  »  .  .  . '• 

4340  PRINT  "  A  ",Ta  start,"  ",Ta  stop 

4350  PRINT  »  B  ".Ttfstart,"  »,Tb~stop 

4360  PRINT  "  C  ",Tc”start,"  ",Tc~stop 

4370  PRINT 


4380  PRINT  "TYPE  THE  LETTER  OF  THE  GROUP  OESIRED  FOLLOWED  BY  'ENTER'." 
4390  INPUT  Anss$ 

4400  Mux_scan_cnt»0 

4410  IF  (AnssS»"B")  THEN  Mux  scan  cntel 

4420  IF  (Anss$*"C")  THEN  Mux“scanj:nt*2 

4430  Rec_num»Rec_nun**5*Mux_scan_cnt 

4440  END  IF 

4450  IF  (Roc_num_old<>Rec_num)  THEN 

4460  Rec_num_old*Rci  _nun 

4470  CALL  Get  run  datu(Volts(*),Tot  samples, Wai t  time.Rec  num) 

4480  I 

4490  I  GET  CALIBRATION  DATA  IF  THIS  IS  NOT  A  CALIBRATION  TEST 
4500  ! 

4510  IF  (Su  state( 2)<> 1000000)  THEN 

4520  ASSIGN  3File  TO  "/FTM/HOME_DIR00/CAL  FACT:, 1400" 

4530  ENTER  3Ffle;Cal  gain(*),Cal  off<*),Load  gainl*) 

4540  ELSE 

4550  FOR  la-1  TO  4 

4560  FOR  Ib-1  TO  4 

4570  Cal  yalnda,  Ib)-1 
4580  Cal'offda,  lb)»0 
4590  NEXT  lb 

4600  NEXT  la 

4610  FOR  lo-l  TO  130 
4620  Load  gainda)"1 
'.630  NEXT~Ia 
4640  END  I F 
4650  I 

4660  Wa  I  t_t  I  ma«U  I  ndou_1 + 1  d  l  a_t  1  me_1  +W  f  ndow_2+ 1  d  l  o_t  I  me_2+W  ( ndow_3 
4670  I  Data  in:  I 
4680  I 

4690  I  MANIPULATE  UPLOADED  DATA 
4700  ! 

4710  FOR  J»0  TO  Chanls_per_scan-1 

4720  FOR  !>0  TO  Nmb  of  scans- 1 

4730  Volts(I,J)-Sign*Volts(I,J)*Voltsjj«r  bit 

4740  NEXT  I 

4750  NEXT  J 

4760  I 

4770  I  BREAK  UP  VOLTS  DATA  INTO  VOLTSl,  VOLTS2,  ANO  VOLTS3  ARRAYS. 

4780  I 

4790  VI  lngth=20000  16500 

4800  • 

4810  I  SET  VOLTS1  TO  123.123 
4821  I 
4830  I 

4840  I  SET  THE  VOLTS2  AND  VOLTS3  ARRAYS  TO  123.123 
4850  I 

4860  Ncnt*(2*Windou_1/(T ime_per_chan_1*Chans_per_scn_1 ))-1 
4870  Ncntnew=(4*Windou  2/(T lme_per_chan_2*Chrns_per_scn_2))- 1 
4880  Nf inal=(2*Window  3/ ( T lme_per_chan  3*Chans_per_scn  3))-1 
4890  SELECT  J  chan  pt 

4900  CASE  =0 

4910  I 

4920  I  SET  ARRAY  TO  123.123 
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120000 


4930  i 

4940  FOR  JaQ  TO  10000 
4950  Volt®1<J(0)-123.123 
4960  Voltaic J# 1  )*123.123 
4970  NEXT  J 
4980  I 
4990  Kk--1 

5000  FOR  J»0  TO  Ncnt  STEP  2 
5010  Kk»Kk+1 

5020  Volt®WKk,0)<Volt«(J,0)+Cal_g«in(2J  >*CaL  j>ff  (2  J))/(Cal_fl«in<2(1)*Load_g 
flin(UllD) 

5030  Voltfl1(Kk#1 )*(VoLta< 1 ,0)*CaL_gaIn<2#2)*Cal_uff <2f2))/<Cal_flaln(2,2)*Lood 
gain(Wl 12)) 

5040  NEXT  J 
5050  CASE  2,4 
5060  ! 

5070  !  SET  .THE  VOLTS2  ARRAY  TO  123.123 
5080  I 

5090  FOR  TO  10000  120000 

5100  Volts2< JfQ)*123. 123 

5110  Vol t*2( J, 1 )*123. 123 

5120  Vo l  ts2b(j ,0*123.123 

5130  VoLts2b( J, 1 )■ 123. 123 

5140  NEXT  J 

5150  I 

5160  Kk--1  ,•*•***«•.**.******««**#*• 

5170  FOR  K«0  TO  Ncntrraw  STEP  4  I  STEP  4 

5180  U-Ncnt+1+K 
5190  J-K 
5200  Kk»Kk+1 

5210  Vol ts2(Kk,0)*(Vol ts( J,0)+Cal-ga1n(2,1)*Cal-iof f(2, 1) }/(Cal^galn(2, 1 )*Lo«d_g 
•in(U2l1 )) 

5220  Voltr2(Kk# 1 )*(Vol ts( J>1,0)^Cal_gain(2,2)*CaL_of f (2l2))/(Calwgain(2<2)*Load 
galn(U2t2)) 

5230  Volts2bOCk,0)-(VoU®(J+2l0)^Cal_ga1n<4l1)*Cal_off(4,1))/(Cal^gain(4 

,1)*Load  gaIn(U213)) 

5240  "  Volts2b(Kk<1)«(Volts03iO)+Cal_wain(4>2)*Cal.off(4(2))/<Cal_gain(4 

, 2 ) *Load_ga i n(U2 14)) 

5250  NEXT  X 
5260  CASE  -6 
5270  I 

5280  \  SET  THE  VOLTS3  ARRAY  TO  123.123 
5290  I 

5300  FOR  J»0  TO  10000  120000 

5310  VoL t®3( J,0)"123. 123 
5320  VolU3(J,1)-123.123 
5330  NEXT  J 
5340  I 

5350  Kk«M  ,***•************************* 

5360  FOR  K*0  TO  Nflnal  STEP  2 
5370  J=X 
5380  Kk«Kk*1 

5390  Volts3(ICk,0)«<VoUs(Jl0)*Cal_gatn<2,1>#Cal_off<2l1))/(Calj|ain(2,1)#Load_g 

afn(U3U  )) 

5400  Vol ta3(Kkf 1 )«(Vol ts( J+1 ,  0}+Cal_gain(2, 2)*Cal_of  f  (2, 2)  )/(Cal_gai  r»(2,2)*Load 
g«1n<U3l2)) 

5410  NEXT  X 
5420  END  SELECT 

5430  ENO  IF  I  Rec_rujm<>R#c_rxjTi_oLd  TEST 

5440  Spotx=6 

5450  PRINT  TABXY<1,16);Clear_UnS 
5460  PRINT  '  BXY<1,17);Cla«r“l1nS 
5470  PRINT  TABXY(1,18);Clear_ttnS 
5480  PRINT  TABXY(1,19);Clear~llnS 


5490  PRINT  TABXYO , 16);"TYPE  IN  THE  TIME  AT  WHICH  YOU  UISH  TO  BEGIN  OBSERVING  T 
HE  DATA.  « 

5500  Mcnt*Hcnt+1 

5510  IF  (Mcnt<>1)  THEN  PRINT  "THE  LETTER  *M*  WILL  INVOKE  THE  MARKER." 

5520  INPUT  AnsS 
5530  IF  (Ans*»»M")  THEN 

5540  CALL  MarkCSpotx, Ful l_period,T, Start  x  old, Stop  x  old, AnsS) 

5550  END  IF 

5560  PRINT  TABXY<66, 16);Ans$ 

5570  First_scan»INT((VAL(Ans*)-T_off_sat)/(T Ime _per_chanl*Chanls_p«r  scan)) 

5580  Star t_X"VAL ( AnsS )  I  I  THINK  THIS  CAN  REPLACE  THE  PREVIOUS  LINE 

5590  Ask_again:l 

5600  PRINT  TABXYO,  17); Clear  lint 
5610  PRINT  TABXYO ,  18);Clear”l  in* 

5620  PRINT  TABXYO,  19);Cleor“l in* 

5630  PRINT  TABXY 0,17); "TYPE~I N  THE  TIME  AT  WHICH  YOU  WISH  TO  STOP  OBSERVING  TH 
E  DATA.  " 

5640  IF  (Mcntol )  THEN  PRINT  "THE  LETTER  *M*  WILL  INVOKE  THE  MARKER." 

5650  INPUT  Ans* 

5660  IF  <Ans*»"H")  THEN 

5670  CALL  Mork(Spotx,FuU_period,T, Start  x  old.Stop  x  old, Ans*) 

5680  END  IF 

5690  Stop_x«VAL(AnsS) 

5700  IF  (Stop  x>Wait  time)  THEN 
5710  PRINT  TABXYO, 18), -Clear  Un* 

5720  PRINT  TABXYO, 18);»TIHl"rEQUESTED  EXCEEDS  0ATA  LIMIT  II  TYPE  ENTER  TO  TRY 
AGAIN."; 

5730  INPUT  Ans* 

5740  GOTO  Ask  again 
5750  END  IF 

5760  PRINT  TABXY(66,17);Ant* 

5770  Stop_x_old»Stop_x 
5780  Start_x_old»Start  x 

5790  las t Jican* l  NT  { ( VAL ( AnsS ) - T_of f  _so t )  /  <  T 1  ms_p«r  chon l *  Chan [ u jwr  scan)) 

5S00  IF  (Last  scon>Numb_of_scans- 1 )  THEN  last  scon-Nurb  of  scans-1 
5810  IF  (PathS<>"L")  THEN  GOTO  Pit  *  ~  ~ 

5820  PRINT  TABXY<1  #18);Clear  Urv$ 

5830  PRINT  TABXY ( 1,18) ;“DO  YOU  WISH  THE  LIST  TO  GO  TO  THE  (P)PHINTEK  OR  (C)CRT 


5840 

5850 

5860 

5870 

5880 

5890 


INPUT  AnsS 

IF  (AnsS^'P")  THEN  PRINTER  IS  9 
OUTPUT  KUD;CHR$(255)&"K"; 

T*Time_per_chanl*(Chanlsi _p«r  scan*First  scan-1)+T  off  set 
PRINT  ”  “  “ 


"&NameS( J_chan_pt)&M 
"&NameS(  J_chanjrt+2 ) 


"&NameS( J^chan 


TIME 


VALUE 


TIME  VALUE 


TIME 


PRINT  11 
J5 1+1)&" 

5900  PRINT 
5910  PRINT  '* 

VALUE1* 

5920  PRINT 

FOR  I  i=Mrst_-;c.in  TO  l  ast_scan 
T*T+T ime_per  chunl 
IF  ( I  i <0)  THEN  GOTO  NxtJ i 
T1*T+(Chanls_p*r_scun- 1  )*Time_per  chonl 
T2»T1+<Chanls _per  scan- 1 )*T ime  per  chanl 
Scon$«"SCANM 
IF  (J_chan_pt"Q)  TH'IN 

PRINT  USING  "^A^SO,  2X,SlD.3DE,X#SlD.3DE,2X,SlD.3DEf IX, SlD.3DE.2X. S1D.3DE 
,1X,S10.30EM;  ScanS,  If,  T,Volts1(M,0),  Tl.Voltstd  i,  1) 

6010  T-T1 
6020  END  I F 

6030  IF  <J_chan_pt*2)  THEN 

6040  PRINT'USING  "4A ( X , 5D, 2X, SID . 30E ( X, SlO ,3DE( 2X , SlD .3DE ,1X, SID . 3DE  2X  SID  3DE 
, IX, SID. 3UE"; ScanS, H ,T,Vol ts2(I i.0),Tl ,Volts2(I i , 1) 


5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 


6050  T-T2 
6060  END  IF 

6070  IF  < J  chan_pt*4)  THEN 

6080  PRiNT~USING  H4A(X,5D,2X, S1D.3DE,X, SID .30E „ 2X, S1D.30E,  1X.S.10 .3DE, 2X( SID 

.3OEllX,SlD.30eM;ScanSlHlTlVolts2b(I1#0),Tl(Volt52b<H#1) 

6090  T«T2 

6100  END  IF 

6110  IF  (J  chan _pt*6)  THEN 

6120  PRINT  USING  «4A,X,50,2XrSlD.3DE,XlSlD.30Er2X,Sl0.3DE#1X,S1D.3DE,2X(SlD.3DE 
, IX, SID .30EH; ScanS, 1 i ,T#Volt«3(l I #0)#T1 fVolt»3< I i , 1 ) 

6130  T«T2 
6140  END  IF 
6150  Nxt  II:  I 
6160  NEXT  If 
6170  PRINTER  IS  1 
6180  GOTO  Quaat 
6190  Pit:  I 
6200  Vartjnin»0. 

6210  PRINT  TAUXY( 1 , 18);Clear_l inS 

6220  PRINT  TAUXY( 1,18); “TYPE  IN  THE  MINIMUM  VALUE  OF  THE  VERTICAL  AXIS.  (DEFAUL 
T  ■  0.0) 

6230  AnsS*"*' 

6240  INPUT  AniiS 
6250  IF  (AniiS<>"")  THEN 
6260  Vart  mIn*VAL(AnsS) 

6270  END  TF 

6280  PRINT  VALS(Vartjnln) 

6290  Vart  wax-Ranga 
6300  0*f  v«lS«VALS<Rsr.fla) 

6310  PRINT  TABXY(1 j 19);Claar  l InS 

6320  PRINT  TABXY<1 4 19) ; ♦♦TYPE-IN  THE  MAXIMUM  VALUE  OF  THE  VERTICAL  AXIS.  (DEFAUL 
T-MlDaf  valtA”)  M; 

6330  AnfiS*,IM 
6340  INPUT  AnaS 
6350  IF  (AmS<>MM)  THEN 
6360  Vtrt  max»VAL(AnsS) 

6370  END  IF 

6380  PRINT  VALS(Vartjiiax) 

6390  Jnama  _pt»J__chon_strt 
6400  IF  (J  chan_pt»G)  THEN 

6410  CALL  Ptot_channalscVol  tsl  (* )  ,Start_X,  Vart  jnin,  Stop_x,  Vart  jnax,  "VOL  TV*  ,0,  J_. 
chun  *trt,J_char  stop, HaumH*), J  nama _pt,Tl tlt*S,T  off  sat,Scan  aUa) 

6420~  END  IF 

6430  IF  ( J_chanj3t»2)  THEN 
6440  J_chan_atrt"J_chan_atr£-2 
6450  Jj;han_8top-J_chafi_strt 

6460  CALL  pTot_channals(Vol t»2(*) , Start jc,Vartjnl n, Stop_x, Vartjnax, "VOLTS" #Q, 
chan  atrt,J_chan  atop,NamaS(*) , J  nama_pt7T  1 tl#«S,T_off  sat, Scants i za) 

647Q~  END  IF 

6480  IF  ( J_chan_pt*4)  THEN 

6490  J_chan_strt*J_chan_strt-4 

6500  J_chan_stqp»J_chan_strt 

6510  CALL  pfot_chonneU?Vgl  ts2b( *), Star t_x,Vortjnin, Stop_x, Vart  jnax, "VOLT  . 

",0,J  chan  strt,J  chan  stop, NumeS<*)# J  numa_pt7T i tlesS, T  off  sat zo) 

6520  END  IF 

6530  IF  ( J-chan-pt»6)  THEN 
6540  J_chanjatrt*J_chan_atrt-6 
6550  J_chan_«top-J_chanjUrt 

6560  CALL  pTot^channa l itTvol t b3(* ) , S tar t_x, Vert  ml n,  Stop_x,  Var  t  jnox , "VOLT S'* ,U,J_ 
chon_strt. J  chu^stopjNomaSC*), J_nome _pt7T  1  tlesS, T  off_set. Scants < zt) 

6570  END  IF 

6580  PRINT  TAUXY( 1 , 18);Claar_linS 
6590  PRINT  TABXY(1, 19);Claar7linS 
6600  Qucut :  I 
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6610  PRINT  TABXYd ,16);Clear  linS 
6620  PRIMT  TABXYd,  17);Clear"lint 
6630  PRINT  TABXYd  18);Clear_UnS 
6640  PRINT  TABXYd , 19);Clear”l ini 

6650  PRINT  TABXYC1 , 18);‘‘DO  YOU  UISH  TO  LIST  OR  PLOT  THE  DATA  AGAIN  ?  (Y)YES  OR 
(N)NO" 

6660  Ansi-"" 

6670  INPUT  Ansi 

6680  IF  <An8l«"N")  THEN 

6690  OUTPUT  2;Cleerj:rti; 

6700  GOTO  Main  end 
6710  END  IF 
6720  GOTO  Data  out 
6730  I 

6740  Main  end:  I 

6750  I  . . END  OF  MAIN  PROGRAM  . 

6760  PRINT  "MAIN  END" 

6770  I 

6780  SUUtND 

6781  I 

6/90  I  ***************************************************************** 

6791  I 

6800  SUB  Utility  switch 
6610  ! 

6820  I  THIS  ROUTINE  PROVIDES  AH  ALL  PURPOSE  SU1TCH  TO  BE  USED  ONCE  DURING 
6830  I  EACH  TEST  WINDOW.  THE  FOLLOWING  DEFINES  EACH  SWITCH  AND  HOW  IT  IS 


68A0 

1  INVOKED. 

6850 

i 

6860 

1  SW  STATE 

DEFINITION 

6870 

1 . 

6880 

1  0 

ALL  SWITCHES  STAY  OPEN. 

6890 

1 

6900 

1  1-30 

SETS  ATTENUATORS  AND  PULSE  GEN  VOLTS  ACCORDING  TO 

6910 

1 

THE  VALUE  OF  SU  STATE. 

6920 

I 

6930 

1  31  -  A99 

PRODUCES  HP- IB  AND  OTHER  VARIOUS  COMMANDS. 

69A0 

1 

6950 

1  500-1000 

SETS  PULSE  GEN  PULSE  WIDTHS  ACCORDING  TO  SW_STATE. 

6960 

I 

6970 

1  1000  - 

SETS  RELAY  OUTPUT  CARD  RELAYS  ACCORDING  TO  SW_STATE 

6980 

I 

6990 

1  1000000  • 

DRIVES  CAL1URAI ION  I NSIRUMEN 1  AT luN 

7000  I 

7010  COM  /Nomas/  Scanner f Cnt_tot , A_d1  ,A_d2, Mult  1_buf far, T I mer_pacor,Tf ioer_1  (Re l 

oyjdl  s7#Relay_d1  s8(Relay  dl  s9, Relay  dl _© 1 0 

7020  ’COM  /Namcs/’A  d3,A  d4,D-a1,D  a2,D  a3,D  aA 

7030  COM  /Switch/  Sw  stateCtT, SrhTsw  wTndowa, Wai t_gate<3) 

7040  ! 

7050  I  DETERMINE  SW  STATE  POINTER. 

7060  I 

7070  I  Ipoint=DKOUND(Sw_windows/2,1) 

7080  I  Ipointa( Ipoint  MOO  A)+1 
7090  I 

7100  Powor»LGT(Sw_windows) 

7110  Ipoint*ABS(Power-3) 

7120  I 

7130  IF  (Sw  stoto( Ipofnt )<>0)  THEN 
71A0  I F’(Sw_stote< Ipoint)<*30)  THEN 

7150  CALL  Sct_pgen  atten(Sw_state< Ipoint) )  I  SETS  ATTENUATORS  AND  PULSE  GEN 

VOLTAGE. 

7160  ELSE 

7170  f  IF  (Sw  stute(Ipoint)<-30)  THEN 

7180  I  •  SET  PULSE  GEN  PULSE  WIDTHS 

7190  I  ASSIGN  SPulse  gens  TO  708(718 
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7200  1 

Uide*(Sw  state( l point) -20 >*300+300 

I  -30 

7210  1 

U1deS«VALS(Uide) 

7220  ! 

Tre».7*Wide 

7230  1 

Laa«.7*Uida 

7240  1 

Tre$»VALS(Tre) 

7250  I 

Leet*VAL$(L*e) 

7260  \ 

OUTPUT  dPulsa  gen8;MWlD,,iWid*W,MS# LEE" 

4L*«MHNS,  TRE"&T  reS4"NS" 

7270 

1  Ftfc  setupe'BOTH  GEMSMI"WIDTH",Wide«"NS") 

7200  I 

ELSE 

7290 

IF  (Su_state( lpoint)<500)  THEM 

1  1000 

7300 

SELECT“sw  stataC Ipoint) 

7310 

CASE  31  “ 

7320 

CAL>  Rotat  flop  down(20) 

7330 

CASE  32 

7340 

CALL  Rotat  flop  doun(-40) 

7350 

1  IF  (Su_stata(Ipoint)»31)  THEM  CALL 

Rotat_flop_down(20) 

7360 

1  IF  <Sw“stata( Ipoint )«32)  THEM  CALL 

Rotat_f Lop_doun(-40) 

7370 

1  IF  <$w  stataC Ipoint)«40)  THEN 

73150 

CASE  33  TO  38 

7390 

CALL  ThumparCSw  stateC Ipoi nt) ) 

740Q 

CASl  40 

7410 

Start(D_a4) 

7420 

1  END  IF 

7430 

1  IF  (Sw  stataC Ipoint)»50)  THEN  ! 

CLOSE  MANUAL  CAGE  IN  6U 

7440 

CASE  50 

7450 

CALL  Sat  rtla  dl  57(15,1) 

7460 

CALL  Sat“rala“dl“87(16t1) 

7470 

!  END  IF 

7480 

1  IF  (Sw  stataC Ipoint)*51 )  THEN  1 

SET  TA  AND  YAW  LOS  TO  2ERO 

7490 

case  51 

7500 

CALL  SctMrela-td1-s8(4,1)  1 

IN  ATTJilD 

7510 

CALL  Sat~rtla~d1~sB(2,l) 

7520 

Ftic  satup(“SET  PSlB  VOLTAGV’O") 

7530 

1  END  1? 

7540 

i  IF  (Su  stata(Ipoint)-52)  THEN 

USED  BY  GUID  GAIN 

7550 

CASl£  52 

7560 

Ftic  »atUp(MSET  PS1B  VOLTAG" , "0M) 

7570 

CALL~Sat  rala  dl  bBcTq,!) 

7580 

1  END  IF 

75  90 

END  SELECT 

7600 

ELSE 

7610 

IF  (Sw  standpoint', <inQQ)  THEM 

7620 

1  SET  PULSE‘gEM  PULSE  UIUTH’J 

7630 

ASSIGN  SPulsa_3«ns  TO  708,713 

7640 

Uida«(Sw  stataC Ipoint)-500)*300+300 

7650 

U ( daS* VAL  S ( Ui da) 

7660 

Trt“.7*Wida 

7670 

Laa“.7*Wida 

7680 

TreS»VALS(Tre) 

7690 

Lee$«VALS(Lee) 

7700 

OUTPUT  SPulse  gens;"WID“&UidL‘S*"NS,LEE 

,,&LeeS&"NS,  TRE"4T reS&nNS" 

77 10 

1  Ftic  satupC “BOTH  GEMSH, “WIDTH" , UideSH" 

NS") 

7720 

"else 

7730 

IF  (Sw  statc( Ipoint ><1000000)  THEN 

7740 

i 

7750 

1  SU  STATE  MUST  BE  A  A  OR  5  DIGIT  NUMBER  12 

34  5 

7760 

!  SLOT  RELAY  STATE 

7770 

1 

7780 

Slot»lMT(Sw  stataC I point )/ 1000) 

7790 

Rel_num=lNT< (Sw_state( Ipoint ) -Slot*1000)/1 0) 

7800 

State«Su  state(Ipoint)-(Slot*1000+Rel  numMO) 

7810 

IF  (Slot=7)  THEN  CALL  Sat  rtla  dl 

_s7(Rtl_num, State) 

7820 

IF  (3lot=8)  THEN  CALL  Set  rela  dl 

_s8( Re l_nLm, State) 

7830 

IF  <Slot*9)  THEN  CALL  Set"rela  dl 

_s9(Rel_num( State) 
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7540  IF  (Slot=10)  THEM  CALL  Set  rela  dl  slOCRel  nun,State) 

7850  ELSE 

7860  CALL  Drv _ps1c  rd  dvm 

7870  EMO  IF 

7880  END  IF 

7890  END  IF 

7900  END  IF 

7910  END  IF 

7920  I  Sw  state<lpoint)*0 
7930  I 

7940  SUBEND  !  UTILITY  SWITCH 
7950  I 

795!  I  ********************************************' ************************* 

7952  ! 

7960  SUB  Squib_driv  I  PAR  68 

7970  CQH  /Test  conf i g/  T i me jser  chan  1 ,  Time_perj:hAn  2#Tlme_per  chan  3, Window  1 
,Window_2,UindowJS,NameS( 20)  Cl OlTwl ll7wil2,U2l1 #U212,W213,W2U,U311  ,W312 
7980  COM  /Test_conf ig/  Chans_per_scn_1  ,Chans_per_scn_2,Chan8_per_scn_3#  ldle_t  im 
e_1,Idle  time_2, Start_chan, Stop^chan 

7990  COM  /Test_select/  Fi IS( 1 :72) [80] ,MarkS[2] , Test_nameSC8Q] 

8000  COM  /Switch/  Sw  state<4), Srh,Sw  windows,Wait  gate(3) 

8010  IF  <Fil$(12H3;2]*M*  ")  THEN* 

8020  Test  name$*F il$( 12) CS; 16} 

8030  I 

8040  I  SPECIFY  THE  Srh  SWITCH  USED  TO  START  THE  TEST. 

8050  I  7  -  EP  &  GUIDANCE  8  -  SEEKER 

8060  i 

8070  Srh=7 

8080  I 

8090  CALL  Ini t_pg  at  I  INITIALIZES  PULSE  GENS  l  ATTENUATORS  BUT  USED  HERE 
8100  "  I  ONLY  BECAUSE  IT  ALSO  DISABLES  THE  ATTENUATOR  SWITCH 

8110  I  USEO  IN  THE  Test  frame  SUBROUTINE. 

8120  I 

8140  FOR  I j k- 1  TO  2  I  CAUSES  THE  TEST  TO  BE  DONE  MORE  THAN  ONCE. 

8150  ! 

8160  [CALL  Relay  card  chk 
8170  [ 

8180  CALL  Relay  inlt  t  SETS  RELAY  OUTPUT  CARDS  TO  PRE-TEST  CONDITIONS. 

8190  ! 

8200  CALL  Set_rela_d1_s 10(8,0) 

8210  CALL  Power  Up("3QS")  I  BRINGS  UP  POWER  SUPPLIES  ACCOROING  TO  SPEC. 

8220  ! 

8230  !  SET  APPROPRIATE  RELAYS 

8240  I 

8250  IF  (Ijk-1)  THEN  CALL  Set  rela  dl  s8(3,G) 

8260  I 

8270  [CALL  Reg  outnts  !  CHECKS  COPPERHEAD'S  REGULATED  OUTPUTS. 

8280  I 

8290  I  ESTABLISH  WINDOW  PARAMETERS. 

8300  ! 

8310  Chans  _por_scn_1  =  1 
8320  Chans_per_scn_2=1 
8330  Chnns_pcr_scn_3=1 
8340  T ime_per_chan_1 =  1 .E-4 
8350  T ime_pcr_chan_2=2.E-3 
8360  Time_per_chan  3=5. E-4 
8370  Window  1*3.5E-2 
8380  Uindow~2*3.5 
8390  Window  3=2.5 
8400  I 

8410  !  SET  SCANNER  CHANNEL  POINTERS  ACCORDING  TO  ( SCANNER#- 1 )*32+CHANNEL# 

8420  I 
8430  W1 l 1=0 
3440  U1 12=32 
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8450  ! 

8460  W21 1*1 
8470  W2 12-33 
8480  W2 13*65 
8490  U2U-97 
8500  ! 

8510  U311-2 
8520  W312-34 
8530  I 

8540  I  IDENTIFY  CHANNEL  ASSIGNMENTS  IN  MEANINGFUL- TERMS. 

8550  ! 

8560  NameS(0)*"EA1  SQ  DR*1 
8570  NameSC  1  ^"EAe'scIOR" 

8580  MameS(2)*»30V  BAT11 
8590  Name$(3)*,,SGG  SQ  DR" 

8600  Neme$(4)*"GAS  SQ  DR*' 

8610  NemeS(5)*,iSGS  SQ  DR" 

8620  NemcS(6)*,,WUN  SQ  OR" 

8630  Name$(7)="WEX  SQ  DR" 

8640  ! 

8650  !  EXECUTE  THE  TEST. 

8660  I 

8670  CALL  Test‘_frame 
8680  CALL  Relay_init 

8690  CALL  Disab  sups  da  I  Ftic  setup<,,OISABLE_SUPPLYS») 

8700  I 

8710  NEXT  Ijk 
8720  “  END  IF 

8730  Ftte  skip  test 
8740  SUBENO 
8750  I 

8760  I  **•*•**#****•***•***##•♦**  ***************************************** 

8770  ! 

8780  SUB  Ad_ld_cal 

8790  COM  /Names/  Scanner, Cnt_t or, A^dl ,A_d2,Mul ti_buf fer,Timer_pacerf Timer_1  ,Rel 
ay  d1_s7#Relay_d1  s8,Relay_d1_s9,ReTay_dT_s10 
8800  COM  /Names/  A_d3 ,  A_d4 , D_a  1 ,  D_a2 , D_a3 , D_a4 

8810  COM  /Test  config/  Time_per  chan_1 , Time _per_chan_2, T ime _per_chan_3,Window_1 
fUindow_2,Uindou-3lName*<20)C10l7will7uil2,U2l1 , W2 1 2 , W2 L 3 , U2 1 4 , U3 L T  ,W3 12 
8820  COM  /Test_ccnf ig/  Ch«ns_per_scn_1 ,Chans_per_scn_2, Chansj3er_scnJ5 , I dle_t im 
e_1,ldle  time  2,Start  chan(5top_chan 

8830  COM  /Test_select/  Fi  IS(1 :72)  [80)  ,Hark$[2J  (Test_nameS[80] 

8840  COM  /Cal_fact/  Cal_gain<20,2G),Cal_of f(20,20), J_chanj3t, J_chan_beg,Dvmj/oL 

ta(100),Ad_volts<110) , Load_gain(130), I  rent ,Xoff_f i t, Yof f _ f i t 

8850  COM  /Switch/  Sw  state(4),Srh,Sw_window$,Uait  gate(3) 

8860  1D1M  Gain(4,4) 

8870  DIM  Vl ts(700) 

8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 


IF  (FilS(23)C3;2]»"#  ">  THEN 
Test_name$*F i li(23) [5; 16] 

!  - 
I 

»  THIS  ROUTINE  DRIVES  THE  FOUR  ( SCANNER 'OP AMP -A/D )  LINES  WITHOUT 
!  LOADS  TO  DETERMINE  OPAMP-A/D  GAIN  AND  OFFSET  PARAMETERS.  THESE 
!  ARE  THEN  USED  TO  OBTAIN  THE  TRUE  VALUES  OF  ALL  OTHER  SCANNER  VOLTAGE 
!  DIVIDERS.  DIVIDER  (LCAD_GAIN)  VALUES  AND  OPAMP-A/D  PARAMETERS  ARE 
!  THEN  STORED  FOR  LATER  USE  DURING  ANALYSIS. 

\ 

CALL  Ini t_pg  at  !  INITIALIZES  PULSE  GENS  &  ATTENUATORS  BUT  USED  HERE 
!  ONLY  BECAUSE  IT  ALSO  DISABLES  THE  ATTENUATOR  SWITCH 
!  USED  IN  THE  Test  frame  SUBROUTINE 


TURN  OFF  WAITS  OF  SECOND  WINDOW 
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9050  Uai t_gate(1 )=0 
9060  Wait  gate(2)=Q 
9070  ! 

9080  Srh=0 

9140  FOR  I  jk»1  TO  1  !  CAUSES  THE  TEST  TO  BE  DONE  MORE  THAN  ONCE ♦ 

9150  1 

9160  CALL  Relay  init  I  SETS  RELAY  OUTPUT  CARDS  TO  PRE-TEST  CONDITIONS. 

9170  ! 

9180  WAIT  1 

9190  CALL  Set_rela_d1_s10<8,0) 

9200  !  CALL  Power  up<"30'»)  !  BRINGS  UP  POWER  SUPPLIES  ACCORDING  TO  SPEC. 

9210  I 

9220  !  SET  APPROPRIATE  RELAYS 

9230  ! 

9240  CALL  Set  rela  dl  s9(5,0) 

9250  ! 

9260  !  SET  2P2-5  GROUND 

9270  \ 

9280  1  CALL  Set_rela_d1  s9(8,0) 

9290  !  CALL  Set^rela^dl^d  1 ,0) 

9300  !  CALL  Set'rel a~dl”s9( 14 f 0) 

9310  !  CALL  Set~rela~d1~s8( 1,0) 

9320  ! 

9330  1  CONNECT  GUIDANCE  LOADS 

9340  ! 

9350  CALL  Sot  rela  dl  s10(8,0) 

9360 

9370  CALL  Set  rela  dl  s8<15,1) 

9380 
9390  I 

9400  Ft ic  setup<‘MNIT  DVM")  I  INITIALIZE  THE  DVH 
9410  I 

9420  !  CLOSE  CHANNEL  7 

9430  ( 

9440  Ft f c  setup( "CONNECT  DVH»(»7*') 

9450  \ 

9460  l  SET  OUTSIDE  ACCESS  RELAYSCTO  CHANNEL  7  OF  DVM) 

9470  I 

9480  CALL  Set  rela  dl  s10<13,1) 

9490  CALL  Serrela~drs10<14, 1 ) 

9500  I 

9510  1  SET  D/A  VOLTAGES  TO  ZERO  OR  5  VOLTS 

9520  » 

9530  Volts»Q 

9540  IF  (I jk*2)  THEN  VoltS*5 

9550  Preset(D_a1 , Volts) 

9560  Preset(D_a2, Volts) 

9570  PresetCD  a3, Volts) 

9580  Preset(D~a4f Volts) 

9590  Start(D_a1) 

9600  Start(0~a2) 

9610  Start(D_a3) 

9620  Start(D~a4) 

9630  ! 

9640  !  SET  PS1B  TO  ZERO 

9650  ! 

9660  Ft  ic  setup('*INIT  PSIBVO","  .75") 

9670  I 

9680  I  CONNECT  THE  DVM  TO  THE  POWER-  SUPPLY 
9690  ! 

9700  !  CONNECT  THE  POWER  SUPPLY  TO  ALL  OF  THE  COPPERHEAD  OUTPUT  ATTENUATORS 
9710  !  IN  SUCH  A  UAY  AS  TO  APPLY  A  NEGATIVE  VOLTAGE 
9720  ! 

9730  OUTPUT  709; “CHAN?" 


I  REMOVES  HIGH  CURRENT  SEEKFn  LOADS 
I  FROM  THE  CALIBRATE  BUS 
I  DISCONNECTS  HIGH  CURRENT  RESISTOR  PLATE 
I  LOADS  FROM  CAL  BUS 


41 


9740  ENTER  709;A 

9750  PRINT  "CHANNEL  ",A,"  IS  CONNECTED  AND  THE  D/As  ARE  SET  TO  ", Volts,"  VOL 
TS." 

9760  ! 

9770  I  SET  PS1B  TO  NEGATIVE  POLARITY 
9780  I 

9790  CALL  Set  rela  dl  $10(5,0) 

9800  CALL  Set~rela~dr»10(1,0) 

9810  CALL  Set"Vela~d1~8 10(2,0) 

9820  CALL  Set~rela~dr*10(3,0) 

9830  WAIT  2.0E-2 

9840  I 

9850  PRINT  "APPLY  ONLY  THE  DC  SUPPLY  TO  THE  LOADS  AT  THIS  TIME." 

9860  PRINT 

9870  PRINT  "TYPE  ENTER  TO  CONTINUE." 

9880  INPUT  AnssS 

9890  PRINT 

9900  PRINT  "SET  THE  FOLLOWING  CALIBRATION  SWITCHES  TO  THE  ""Q""  POSITION." 

9910  PRINT  "ALL  OTHER  SUITCHES  SHOULD  BE  IN  THE  "HG""  POSITION." 

9920  PRINT  "AND  TYPE  ENTER  TO  CONTINUE." 

9930  PRINT 

9940  PRINT  "P2-2,P3-2,P2-4,P3-4,ALL" 

9950  PRINT 
9960  INPUT  Ansst 

9970  F  t i c_sttup( "SETUPS 1 B_VOLTAG" , "9" ) 

9980  CALL  Read  dvm(Dvm  no, 7, Uni ts$, Reading) 

9990  UAIT  2 

10000  I  CALL  Read_dvm(Dvw_no, l,Uni tsS,Readb) 

10010  I  keading*Heading-Readb 
10020  Dvm_volts<1 )»Reading 

100301  CALL  Reg  OUtpts  !  CHECKS  COPPERHEAD'S  REGULATED  OUTPUTS. 

10040  I 

10050  f  ESTABLISH  WINDOW  PARAMETERS. 

10060  ! 

10070  Chan* __per_scn_1*1 

10080  Chan*_per_scn_2«1 

10090  Chan*_per_scn_3“1 

10100  Time _per  chan  1-1.E-4  I1E-4 

10110  Tffnej»r~chan’2«1.5E-2  120  J2E-3 

10120  Time_per  chan_3=1.E*4 

10130  Window  1-1.E-4  I12E-3 

10140  Window~2*63  1 3.5 

10150  Uindow”3*1.E-4  12.5 

10151  I 

10160  Sw  uindow*»10  f  SAYS  THAT  THE  UTILITY  SWITCH  WILL  BE  USED  IN 

10161  ~  I  WINDOW  2 

10162  I  100  FOR  WINDOW  1  ,  10  FOR  2  ,  AND  1  FOR  3. 

10163  Sw_state(2)* 1000000  ! IDENTIFIES  A  RUN  AS  BEING  FOR  THE  PURPOSE  OF 

10164  I  *  CALIBRATION. 

10166  1 

10167  I  SET  SCANNER  CHANNEL  POINTERS  ACCORDING  TO  (SCANNER#* 1 )*32+CHANNEL# 

10168  I 

10169  W111.0 

10170  W112=32 

10171  I 

10172  W21U7 

10173  W212=44 

10174  U2l3*68 

10175  U214-103 

10176  ! 

10177  W3 l 1 *2 

10178  W312*34 

10179  I 

10180  I  IDENTIFY  CHANNEL  ASSIGNMENTS  IN  MEANINGFUL  TERMS, 
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hr  , 

i 


10181  ! 

10182  Hame$(0)*"EA1  SQJJR" 

10183  NamcS(1)»»EA2  SOJ)R« 

10184  Name$(2)a"SC/OP/AD1M 

10185  NameSC  3 ) ■,,SC/OP/A02" 

10186  Name$(4)»"SC/OP/A03" 

10187  NameSC  5  )3,,SC/OP/AD4H 

10188  NameS(6)»"WUN  5Q  OR11 

10189  NameS(7)«"UEX  SO  OR'1 

10190  I 

10191  I  EXECUTE  THE  TEST* 

10192  ! 

10193  CALL  Test  frame 

10194  CALL  Disab  sups  da  !  Ftic  setupC "DISABLE  SUPPLYS") 

10195  ! 

10196  NEXT  Ijk 

10197  I 

10198  1  A_D  ANO  OP  AMP  CAINS  AND  OFFSETS  COMPLETED.  NOW  DETERMINE 

10199  I  ATTENUATOR  VALUES  FROM  THE  FOLLOWING  MEASUREMENTS. 

10200  I 

10201  I  D i sable_mxctrl(A_d1 ) 

10202  \  D isablejnxctr l(A_d2) 

10203  !  D isablejnxctr l < A_d3) 

10204  I  Disablejnxctrl(A_d4) 

10205  Set^swi tches(Scanner ,0) 

10206  GOTO  Jnp  over 

10207  Ftic  setupC'SET  PS1BJ/OLTAG", "9") 

10208  DlM~Drop  fact<5) 

10209  FOR  Ui-T  TO  5 

10210  CALL  Ground  seiect(lzi) 

10211  WAIT  2.0E-2" 

10212  CALL  Read_dvm( 1,7, Units, Reading  in) 

10213  WAIT  3 

10214  CALL  Read_dvm<  1 , 1 ,Uni tS,Reading_drop) 

10215  Drop  factOzI  )»Read1ng  drop/Readfng  in 

10216  NEXT- 1  xi 

10217  Jmp_over:  I 

10218  Ftic  setupC'SET  PS1BJ/QLTAGV'QM) 

10219  PRINT  "REMOVE  THE  HC“SUPPIY  FROM  THE  LOADS  AT  THIS  TIME  AND" 

10220  PRINT  "APPLY  ONLY  THE  PULSE  GENERATOR  TO  THE  LOADS." 

10221  PRINT 

10222  PRINT  "TYPE  ENTER  TO  CONTINUE." 

10223  INPUT  AnssS 

10224  \  Ftic_setup("S6T  PS1B  VOLTAG'V'1 .5") 

10225  !  Ft ic*setup("SET  PSlB~VOLTAG", "28") 

10226  ! 

10227  1  CHOOSE  THE  TYPE  OF  CALIBRATION  TO  BE  PERFORMED.  (SEEKER  OR  EP) 

10228  ! 

10229  Bad:! 

10230  PRINT 

10231  PRINT  "DO  YOU  WISH  TO  PERFORM  AN  EP(E)  "  A  SEEKER(S)  CALIBRATION  ?« 

10232  INPUT  AnssS 

10233  IF  (AnssS="E"5  THEN 

10234  Cal  type=1 

10235  CALL  Set  rela  dl  s10(8,0)  I  APPLIES  HIGH  CURRENT  EP  LOADS 

10236  ELSE 

10237  IF  (Ansst<>»S")  THEN 

10238  PRINT  "ERROR  --  AN  IMPROPER  TEST  CHARACHTER  HAS  BEEN  CHOSEN." 

10239  PRINT  "TYPE  ENTER  TO  TRY  AGAIN."  . 

10240  GOIO  Bad 

10241  END  ! F 

10242  Cal_type=2 

10243  ENO  IF 

10244  PRINTER  IS  9 
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10245  I 

10246  ! 

10247  ! 
10246  ! 

10249  I 

10250  1 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 

10259 

10260 
10261 
10262 

10263 

10264 

10265 

10266 

10267 

10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 
10281 
10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 

10298 

10299 

10300 

10301 

10302 

10303 

10304 

10305 

10306 

10307 

10308 


DEFINE  THE  INPUT  VOLTAGE  PULSE  HEIGHTS,  GROUND  SELECTIONS, 
EXPECTED  LOADS  ASSOCIATED  UITH  EACH  CHANNEL,  AND  THE  PIN  NUMBER 
FOR  EACH  CHANNEL. 

0 1 H  Chan_sup<  1 27) ,  Chan_gnd<  1 27) ,  Chan  J oad<  127), Chan_pi  r*( 1 27)[8] 
01M  Pulse  «flp(6),Chan  gndi(6) [8] ,Rtt~drop( 127), Chen  ret(127) 

! 

I  CASE  NUMBER  PULSE  HEIGHT 


2 

3 

4 

5 

6 


11  VOLTS 
13  VOLTS 
24  VOLTS 
29  VOLTS 
9  VOLTS 


DATA  2, 2, 5, 3, 6, 5, 6, 6, 6, 5, 6, 6,6,6, 6, 6, 6, 6, 6,6, 6,6, 6, 6, 6, 6, 6, 6, 6, 6,6, 6 
DATA  2, 5, 5, 6, 6, 2, 6, 5, 6, 5, 3, 6, 6, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6 
DATA  6, 5, 3, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 6  6, 6, 6, 6, 6, 6, 6,6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6 
DATA  6, 5, 6, 5, 3, 6, 6, 6, 5, 3, 6, 6, 6, 6, i, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6 
READ  Chan_sup(*) 


CASE 


GROUND  SELECTION 


1 

2 

3 

4 

5 

6 


2P3M8 

2P3-17 

2U1A-6 

2W10-6 

2P2*5 

2P3-5 


Chan  flndS(1)-"2P3-18H 
Chan~gndS(2)*M2P3- 17M 
Chan*orx»<  3 ) -«  2U1 A -6“ 
Chan~gnd$(4)»,,2U1D'6M 
Ch*n~gr>dS(  5 )  «•'  2P2  -  5 11 
Chan~gnd$(6)i-*<2P3  5» 

I 


DATA  1,1, 1,2,4, 2, 2,2, 3,3, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1, 1,1,1 
DATA  1,1, 1,2, 4, 2,2,2, 3, 3, 3, 2, 2, 3,3,1, 111,1,1,1,1,1,1,1,1,1, 1,1, 1,1,1 
DATA  1,1, 3, 5, 2, 1,2, 2, 3, 3, 1,2, 1,1, 1,1, 1,1 ,1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1 
DATA  1,1, 1,5, 2, 1,1, 2, 3, 3, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1 ,1,1, 1,1, 1,1, 1,1, 1,1 
READ  Chan  gnd(*) 

! 


OATA  6, 1,1, 2, 4,2, 2, 2, 3, 3, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1 
DATA  5, 1,1, 2, 4, 2, 2, 1,3, 3, 3, 2, 2, 3, 3, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1 
DATA  1,1, 3, 6, 2, 1,2, 2, 3, 3, 1,2, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1, 1,1, 1,1, 1,1,1 
DATA  1,1, 1,5, 2,1, 1,2, 3, 3, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1 ,1,1, 1,1, 1,1, 1,1, 1,1 


READ  Chan  ret(*) 

! 

I  EXPECTED  LOAD  VALUES 
I 

OATA  1E3, 1E3, 1E3 , 1 .422E6, IE 20, 1 .2E6, 1E20, 1E2Q, 1E20.7.5E3, 1E20, 1E20 
DATA  1E20, 1E20,1E20, 1E2Q, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1 E20 
OATA  1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E2Q, 1E20 
1 

OATA  1E3, 1E3, 1E3, 1E20, 1E20, 149.2E3, 1E20, 1E3, 1E20, 1E20, 1 .51 1E6, 1E2Q 
DATA  1E20, 1 .51 1E6,‘1E20, 1E2Q 

DATA  1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1 E20 
DATA  1E20, 1E20, 1F20, 1E20 
! 

OATA  1E20, 1E3, 1 .511E6, 10E3, 1E20, 1E20, 1E20, 1E20, 10E3, 10E3, 1E20 
DATA  1E20, 1E20, 1E20, 1E20, 1E?0, 1E20,  lE.’O, 1E20, 1E20, 1E20, 1E20, 1E20 


AA 


10309 

10310 

10311 

10312 

10313 

10314 

10315 

10316 

10317 

10318 

10319 

10320 

10321 

10322 

10323 

10324 

10325 

10326 

10327 

10328 

10329 

10330 

10331 

10332 

10333 

10334 

10335 

10336 

10337 

10338 

10339  I 

10340 

10341 

10342 

10343 

10344 

10345 

10346 

10347 

10348 

10349 

10350 

10351 

10352 

10353 

10354 

10355 

10356 

10357 

10358 

10359 

10360 

10361 

10362 

10363 

10364 

10365 

10366 

10367 

10368 

10369 

10370 

10371 

10372 


DATA  IE 20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20 
! 

DATA  1 E20 , 1 E3 , 1 E20 , 1 QE3 , 1 . 422E6 , 1 E20 , 1 E20 , 1 E20 , 1 0E3 , 1 . 5 1 1 E6 
DATA  1E20, 1E20, 1E20,1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20 
DATA  1E20, 1E2Q, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20, 1E20 
! 

READ  Chan  load(*) 

I 

OATA  »2P3-2V,2P3-20","2P2-12","2WlC-4","2W1D-17","2P3-22","2P2-7" 

DATA  "2P3-21 " , "2W1 A- 1 1 , M2UU-3,# 

n*TA  HU  III!  Mil  nil  III!  III!  till  till  till  till  till  IIU  III*  III*  till  till  till  till  Hit  till 
n  I  I  I  I  I  I  I  I  I  I  I  I  f  I  I  I  I  I  I 

DATA 

! 

OATA  "2P2-2,,,I,2P2-25",I,2P2--15",  ,I2W1D-19","2P2“21 " , "2P3- 10" , "2U1D-21 " 
DATA  ••2P2-15",«2UlA-12,,,H2W1A-3u,"2U1A-4',/,2P3-9,‘,“2P3-21,,l,‘2W1A-5" 

DATA  "2U1 A-7" 

DATA  1*11  III*  Mil  II II  III*  III*  III*  HU  III*  HI*  Ull  III*  nil  nil  Mil  III!  Hil 
f  I  f  l  I  I  I  I  <  I  I  I  I  I  I  I 

! 

DATA  •h',,,2P2-19,,,"2W1A-5",»2P3-4'»#"2P2-22,,#“,,#,*2U10-7",»‘2P3-8,i(,'2W1A-8" 
DATA  "2U1A-2" , "2W1C- 12" 

nATA  Hit  HU  Mil  till  IIU  till  HI*  till  III!  till  HU  1111  llll  IIU  Mil  1111  Itll  IIU  1111  lilt 

vnin  i  f  |  |  |  *  |  f  f  *  i  i  |  i  |  |  i  t  | 

! 

DATA  "","2P3-25"("‘V‘2P2-4",  "2P3-6",  "'V",  "2P3-9" ,  "2W1A  - 10",  ‘^WIA-S" 

DATA  HU  llll  Itll  llll  till  Ill*  till  llll  llll  nil  nil  llll  till  till  llll  III!  llll  HU  llll  llll 

DATA 

READ  Chan _pin$<*) 

I 

DATA  0,9,11,13,24,29,9 
READ  PulsejmpC*) 


FOR  Sup  indx-2  TO  6 

printer”is  1 

Set  sw{ tches(Scanner,0) 

PRINT  "SET  THE  PULSE  GENERATOR'S  TRIGGER  SWITCH  TO  MANUAL  AND" 
SELECT  Sup  indx 
CASE  2 

PRINT  "SET  THE  INPUT'S  PULSE  HEIGHT  TO  11  VOLTS  AND  TYPE  ENTER" 
PRINT  "TO  CONTINUE." 

INPUT  AnssS 
CASE  3 

PRINT  "SET  THE  INPUT'S  PULSE  HEIGHT  TO  13  VOLTS  AND  TYPE  ENTER" 
PRINT  "TO  CONTINUE." 

INPUT  AnssS 
CASE  4 

PRINT  "SET  THE  INPUT'S  PULSE  HEIGHT  TO  24  VOLTS  AND  TYPE  ENTER" 
PRINT  "TO  CONTINUE." 

INPUT  AnssS 
CASE  5 

PRINT  "SET  THE  INPUT'S  PULSE  HEIGHT  TO  29  VOLTS  AND  TYPE  ENTER" 
PRINT  "TO  CONTINUE." 

INPUT  AnssS 
CASE  6 

PRINT  "SET  THE  INPUT'S  PULSE  HEIGHT  TO  9  VOLTS  AND  TYPE  ENTER" 
PRINT  "TO  CONTINUE." 

INPUT  AnssS 
END  SELECT 
PRINT 

PRINT  "REMOVE  THE  SCOPE  FROM  THE  SYSTEM." 

PRINT  "T1PE  ENTER  TO  CONTINUE." 

INPUT  AnssS 
PRINT 

PRINT  "SET  THE  PULSE  GENERATOR'S  TRIGGER  SWITCH  TO  EXTERNAL." 
PRINT  "TYPE  ENTER  TO  CONTINUE." 
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10373  INPUT  AnssS 

10374  FOR  GndJndx-1  TO  5 

10375  CALL  Ground  sslsct(Gnd  indx) 

10376  FOR  I  Jk»0  TO~127  I  67  TO  68 

10377  IF  (Cal  flag°1)  THEN 

10378  PRINT  "RETURN  SWITCH  TO  "»G"“  POSITION  AND  TYPE  ENTER  TO  CONTINUE.  “ 

10379  INPUT  AnssS 

10380  Cal  flag»0 

10381  END  If 

10382  I  Disabla  axtrk(A_d1) 

10383  I  Disabla”extrig(A_d2) 

10384  I  Disabla_sxtrig(A  d3) 

10385  I  Disabla“axtrig(A-d4) 

10386  I  Ik-I jk-1 

10387  Ik-Ijk 

10388  Satj»uitchas(Scannar,0) 

10389  I  OPEN  TIMER  TO  SCANNER  RELAY  HERE 

10390  CALL  3at_rala_d1_s7(10,Q) 

10391  Disabla_extrig(Scanner) 

10392  WAIT  2.0E-2 

10393  Fit_pointsr«3  I  3  LINEAR  .  4  -  A*EXP(BX+CX2) 

10394  SELECT  Ik 

10395  CASE  <32 

10396  IF  (Chan  sup(Ik)oSupJndx)  THEN  GOTO  NaxtJJk 

10397  IF  (Chan“gnd(lk)<>Gnd~indx)  THEN  GOTO  NaxtJJk 

10398  GOSUS  Cal  switch 

10399  I  GOTO  NEXT  JJK 

10400  I  Enabla_sxtrig(A_d1 ) 

10401  Urita  start  chnZscanrtar,  Ik) 

10402  WAIT  7l 

10403  Sat  switchas(Scannar,1) 

10404  WAIT  .1 

10405  Ad  no-1 

10406  GOSUB  Gat  data 

10407  SELECT  Fit_pointtr 

10408  CASE  -3 
104091 

104101  USED  FOR  A  LINEAR  FIT 

10411  Load_gain( I Jk)-(Raading_b-Cal_off (2,1))/(Cal_gain(2,1)*(Reading_a-Raodin 

g  c)) 

104121 

104131 

10414  CASE  -4 

10415  Aaq9«Cal  gain(3,0) 

10416  Baq9-Ca l~ga I n( 3 , 1 ) 

10417  Caq9-Cal~gain(3,2) 

10418  Constl  —  LOGURsading  b*Yoff  f(t)/Aaq9) 

10419  Vin  quad  1-(-Beq9+SQRT(Boq9*Baq9-4*Const1*Csc|9))/(2*Caq9) 

10420  V i n~quad~2-( -Baq9- SORT ( B«q9"B#q9-4*Const 1 *C«q9) )/ ( 2*C#q9 ) 

10421  Load_gatn( I jk)-(MAX(Vtn  quad  1,Vin  quad  2)-Xoff  fit)/Reading  a 

10422  END  SELECT 

10A23  CASE  32  TO  63 

10424  IF  (Chan  sup< I k/<'Sup  Indx)  THEN  GOTO  Naxt  1 jk 

10425  IF  (Chan~gnd( lk}<>Gnd”tndx)  THEN  GOTO  Naxtjjk 

10426  GOSUB  CaT  switch 

10427  I  IF  (Ik<>32)  THEN  GOTO  Naxtjjk 

10428  I  PRINT  "SET  CALIBRATE  VOLTAGE  TO  11.5  VOLTS." 

10429  I  INPUT  AnssS 

10430  !  Enabl a_ax  t  r i g ( A_d2 ) 

10431  Uri ta_start_chn?Scann«r , Ik) 

1 0432  Sat_su i tchesl Scanner , 1 ) 

10433  I  CALL  Raad_dvm(1 ,7,UnitS(Reoding  a) 

10434  1  Tot_raad=>0 

10435  I  FOR  Lp»1  TO  20 
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10436  I  Start(A_d2) 

10437  I  Input(A_d2,Reading_b) 

10438  I  Tot  read-Tot  read+ReadingJa 

10439  !  NEXT  Lp 

10440  I  Reading  b*-Tot  read/20 

10441  Ad_no*2~ 

10442  GOSUB  Gel  data 

10443  SELECT  Fit  ^pointer 

10444  CASE  *3 
104451 

104461  USED  FOR  A  LINEAR  FIT 

10447  Load  gain( l jk)*<Reading  b*Cal_off (2(2) )/(Cal_gain(2#2)*(Readingji-Readin 
q_C>) 

104481 

104491 

10450  CASE  *4 

10451  Aeq9-Ca l_gain(4,Q) 

10452  Beq9-Cal  ga i nC 4 « 1 ) 

10453  Ceq9*Cal~gai n(4, 2) 

10454  Const1»-L0G< (Reading  J>+Yoff_f i C)/Aeq9) 

10455  Vin  quad  1»< -Beq9+SaRT(Ut\^*Beq9-4*Const 1*Ceq9) )/(2*Ceq9) 

10456  Vin~quad~2-(*Beq9-SaRT(3eci9*Beq9-4*Const1*Ccq9))/<2*Ccq9) 

10457  Load_gain( I j  k)«(MAX(Vin  quad  1 , Vin_quad_2)-Xof f_f i t) /Reading  a 

10458  ENO  SELECT 

10459  CASE  64  TO  95 

10460  IF  (Lhan  sup(lk)<>Sup  indx)  THEN  GOTO  Next  ijk 

10461  IF  (Chan~gnd( lk)<>Gnd~indx)  THEN  GOTO  Next^jk 

10462  GOSUB  Cal  awitch 

10463  I  GOTO  NextJJk 

10464  I  Enable_txtrig(A_d3) 

10465  I  IF  < Ik-68)  THEN" 

10466  I  Ftic  setupC'SET  PS1B  VOLTAG", “9”) 

10467  !  ENO  Tf 

10468  Uri  U_itart_chn<Scanru>r,  Ik) 

10469  Set^awi tchcs ( Scanner, 1) 

104701  CALL  Read_dvm( 1 (7,Uni tS,Reading_o) 

10471  Tot  read-Q 
104721  2x-0 

104731  Tot  load-0 
10474  2i  chk:  ! 

10475!  Zz-Zz+1 

10476!  IF  (22-8)  THEN  GOTO  Jnpjiere 
10477!  Vol  valz«. 1*Zz+.8 
104781  Vol”velzS-VAL$(Vol  valz) 

10479!  Ftl  (faetupC'SET  PS1B  VOLTAG”#Vol  valzS) 

104801  UAlfl 

104811  CALL  Read  dvm( 1 ,7, Uni t$# Rending  a) 

10482!  FOR  Lp-1~TO  20 
10483!  Stort(A_d3) 

104841  lnput(A_d3,Reading_b) 

10485!  Tot  read^Tot  read+Readi ng  b 

104861  NEXT  Lp 

10487!  Reading_b*-Tot-read/20 

10488  Ad_no*3 

10489  GOSUB  Get  data 

10490  SELECT  IF itjxi inter 

10491  CASE  -3 
10492! 

10493!  USED  FOR  A  LINEAR  FIT 

10494  Lood_gain( 1 j k)*(Reading_b~Cal_of f (4, 1 ) )/(Cal_gain(4, 1 )*(Readi ng_a-Readin 
g._c)) 

10495!  Tot  loadaLoad  gain( 1 jk)+Tot  load 
10496!  GOTO  Zz^chk 
10497  Jmphere:  ! 
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10498!  Load  gain(  I  Jk)*Tot  load/7 

104991 

105001 

10501  CASE  -4 

10502  Aeq9«Col  gain(5,0> 

10503  Beq9»Cal_gain(5, 1 ) 

10504  Ceq9«Cal~gain(5,2) 

10505  Conat1»-L0G((Reading  b*Yoff  fit)/Aeq9) 

10506  Vin  quad  1«<-Beq9*S0RT(iieq9^Baq9-4*Const1*C6q9))/(2*Ceq9) 

10507  Vin“quad"2-(-B#q9-SQRT(Bec(9#Beq9-4*ConBt1*Ce<ii9))/<2*Ceq9) 

10508  Load_ga  i  n(  I J  k)»(HAX  ( V  i  n_quad J ,  V 1  n_quad_2 )  -  Xof  f  J  i  t )  /  Read  i  ng_a 

10509  Load_g«in(I Jk)*(RtadinQ_b+CaT_gafn(4, 1 )*Cal_off (2,2) )/(Cal_gain(4, 1 )*ftea 
ding  a) 

10510  END  SELECT 

10511  CASE  >95 

10512  IF  (Chan  sup(Ik)<>Sup  indx)  THEN  GOTO  Nextjjk 

10513  IF  (Chan~gnd<  lk)<>GndJndx)  THEN  GOTO  NextJJk 

10514  GOSUB  CaT  switch 

10515!  IF  ( Ik<>99)  THEN  GOTO  Nextjjk 

10516!  PRINT  "SET  CALIBRATE  VOLTAGE  TO  27  VOLTS." 

10517  I  INPUT  Anss* 

10518  !  Enable_extr ig(A_d4) 

10519  Wri tejstart_chn( Scanner, Ik) 

10520  Set^swi tchesC Scanner, 1) 

10521!  CALL  Read_dvm( 1 , 7, Uni tS,Reading_a) 

105221  Tot  read»G 
105231  FOR  Lp-1  TO  20 
10524!  Start (A_d4) 

1 0525 1  ; nput ( A_d4 , Read i ng  J>) 

10526!  Tot  read*Tot_read+ReadinflJ> 

105271  NEXT  Lp 

10528!  Read1nQ_b*-Tot_read/2Q 

10529  Ad  no»4 

10530  GOSUB  Get  data 

10531  SELECT  Flt_pointer 

10532  CASE  -3 
105331 

105341  USED  FOR  A  LINEAR  FIT 

10535  Load_gain( I j k)* (Read ing_b-Cal_off (4,2) )/(Cal_ga1n(4,2)*(rteoding_a-Readin 
g  c)) 

10536! 

10537! 

10538  CASE  »4 

1053^  Aeq9*Cal_galn(6,0) 

1054C  Beq9«Cal  jjain(6,1) 

10541  Ceq9*Cal  gain(6,2) 

10542  Con»t1--LOG((Reading_b*Yoff  f It)/Aeq9) 

10543  Vin  quad  W-Beq9+SQRT(Beq9*Beq9-4*Conit1*Ceq9))/(2*Ctq9) 

10544  Vin3quadJ«(-Beq9-SQRT(Beq9#Beq9-4*Const1*Ceq9))/(2*Ceq9) 

10545  Load_gain( I jk)»(MAX(Vin  quad  1,Vin_quad  2) -Xof fj i t )/Readi ng_a 

10546  Load-gain( I jk)*(Reading~b+CaT_gain(4,2)*Cal_of f (4, 1 ) )/(Cal-gain(4, 2)*Reo 
ding  a) 

10547  END  SELECT 

10548  I  CASE  ELSE 

10549  !  Load  gain( I jk)«1 

10550  END  SELECT 

10551  PRINT  "  CHANNEL  NUMBER  LOAD  GAIN" 

10552  PRINT 

10553  PRINT"  ",  I Jk, Load  gain( I Jk) 

10554  PRINT 

10555  Next J  jk:  ! 

10556  NEXT  I jk 

10557  NEXT  Qnd  indx 

10558  NEXT  Supjndx 


10559  Set  swi tches( Scanner, 0) 

10560  PRINT 

10561  GOTO  Leap 

10562  FOR  Kch»0  TO  128 

10562  PRINT  "CHANNEL  NUMBER  ■  »,Kch 

10564  PRINT  "OLO  LOAO  GAIN  >  ".Load  gain(Kch) 

10565  SELECT  Kch 

10566  CASE  <32 

10567  load  gBin(Kch)«Load  gain(Kch)+(1*Load  gain(7)) 

10568  CASE  32  TO  63 

10569  Load  gain( Kch) "Load  gain(Kch)+(1-Load  ga<n(44)) 

10570  CASE  64  TO  95 

10571  Load  gain(Kch)*Load  gain(Kch)+(1*Load  ga<n(68)) 

10572  CASE  >95 

10573  Load_ga<n(Kch)rLoad_gain(Kch)+(1-Load  gafn(103)) 

10574  END  SELECT 

10575  PRINT 

10576  PRINT  "NEW  LOAD  GAIN  ■  ".Load  goin(Kch) 

10577  PRINT 

10578  NEXT  Kch 

10579  Leap:  I 

10580  I  CALCULATE  A  CALIBRATION  FACTOR 

10581  I 
10582 1  PR  I  NT 

105831  PRINT  "OFFSET  CAL  FACTOR  AVERAGE  VOLTS  OUT  DVM  IN  OFFSET" 
10584IPRINT 

105851  FOR  1-0  TO  6  STEP  2 
105861  FOR  J-0  TO  1 

105871  Cal  fect(I , J)»Avg  volts(I,J)/(Readlng-Offset) 

105881  PRINT  Offsat.Cal  fact< I , JJ.Avg  voltsO.J), Reading, Offset 
105891  NEXT  J 
105901  NEXT  I 

10591  I 

10592  I  PRINT  CALIBRATION  DATA 

10593  PRINTER  IS  9 

10594  I 

10595  PRINT  »  CAL_GAIN_1  CAL_GAIN  2  CAL_GAIN  3  CAL  GAIN  4 

It  —————— 

10596  PRINT 

10597  PRINT  Cal_gain<2,1),Cal  galn(2,2),Cal  gain(4, 1 ),Cal  gain(4,2) 

10598  PRINT 

10599  PRINT  »  CAL  OFF  1  CAL  OFF_2  CAL  OFF  3  CAL  OFF  4" 

10600  PRINT 

10601  PRINT  Cal  off(2,1),Cal  off<2,2),Cal  off(4,1),Cal  off(4,2) 

10602  INTEGER  Ic_prt 

10603  FOR  Ic-0  TO  127 

10604  IF  (Ic  MOO  32>0)  THEN 

10605  PRINT 

10606  OUTPUT  9;CHRJ(12) 

10607  IF  ( lc»0)  THEN  PRINT  USING  Format 

10608  Format:  IMAGE  4/,26X,"LOAD  CALIBRATION  REPORT" 

10609  PRINT 

10610  PRINT 

10611  PRINT 

10612  PRINT  "SCANNER  ", INT( lc/32)*1 

10613  PRINT 

10614  PRINT  "CHAN  PIN  URT  GND  RET  GNO  DVD  LOAD  DVD  GAIN  CAL  VL 

TG  RET  DROP" 

10615  PRINT 

10616  END  IF 

10617  Load_gain  _prt«INT(Load_gain( Ic)*1 .E+5)/1 .E*5 

10618  Ic_prt«Ic 

10619  PRINT  lc_prt,Chan_pinJ(Ic),Ch..n_gnd$<Chan_gnd<lc)),Chan_gnd$(Chon  ret(lc) 
) ,Chan_lood( I c) , Load_gain _prt ,Pulse_anp(Chan_sup( Ic) ) ,Ret_drop( Ic) 
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10620  NEXT  lc 

10621  I 

10622  I  STORE  CALIBRATION  DATA 

10623  I 

10624  PRINT 

10625  PURGE  "/FTM/HOME  DIROO/CAL  FACT:, 1400" 

10626  CREATE  ASCII  "/FTM/HOME  DIROO/CAL_FACT: , 1400", 200 

10627  ASSIGN  3FHa  TO  «/FTM/’h6mE_DIR00/CAL_FACT:,1400" 

10628  OUTPUT  3Fila;Cal  g#ln(*),Cal_of f <•: ,Load_gain(*) 

10629  I  END  IF 

10630  PRINTER  IS  1 

10631  PRINT  "REMOVE  THE  PULSE  GENERATOR  UOU  III" 

10632  PRINT 

10633  PRINT  "TYPE  ENTER  TO  CONTINUE." 

10634  INPUT  AnssS 

10635  CALL  Relay  Init 

10636  I 

10637  CALL  Sat  rala  dl  s8<15,0)  I  DISCONNECTS  HIGH  CURRENT  SEEKER  LOAD 

10638  "  I  DIVIDERS 

10639  ! 

■'0640  Ftta_sk1p_t#at 

10641  Gat  data:? 

10642  "  PRINTER  IS  1 

10643  I 

10644  Tot_read»0 

10645  ITot~raad_tot«0 

10646  FOR  tp-T  TO  1  12 

10647  I  Adjust:  I 

10648  Tot  raad*0 

10649  I 

10650  I  SET  UP  DVM  TO  TRIGGER  ON  ITS  EXTERNAL  INPUT,  DELAY  FOR  2E-3  SECONDS 

10651  I  AND  GET  A  OCV  (AVERAGE)  OVER  AN  INTEGRATION  TIME  OF  1.7E-3  SECONDS. 

10652  I 

10653  CLEAR  709 

10654  OUTPUT  709; "RESET" 

10655  I  OUTPUT  709;»0CV  30,. 01" 

10656  I  WAIT  5 

10657  I  IF  (Lp-2)  THEN 

10658  I  OUTPUT  709; “DCV  .29" 

10659  I  ELSE 

10660  OUTPUT  709; "DCV  30" 

10661  I  END  IF 

10662  OUTPUT  709  USING  "N,K";“TARM  HOLD;" 

10663  OUTPUT  709; “TERM, 2" 

10664  I  OUTPUT  709;“TERM7" 

10665  I  ENTER  709;  Aria 

10666  I  PRINT  "TERM"", An* 

10667  OUTPUT  709;«CHAN,7" 

10668  I  OUTPUT  709; “CHAN?" 

10669  I  ENTER  709; Ans 

10670  I  PRINT  "CHAN*", Ans 

10671  I  IF  (Lp*2)  THEN  OUTPUT  709; "CHAM, 1" 

10672  OUTPUT  709;"0riAY  2E-3" 

10673  OUTPUT  709;"NPLC  .1" 

10674  OUTPUT  709  USING  "N,K";"TARM  1;" 

10675  OUTPUT  709  USING  "*,K";"TRIG  EXT;" 

10676  OUTPUT  709;"NRDGS  1,2" 

10677  I  OUTPUT  709  USING  "N,K";“TARM  SGL.O;" 

10678  lnlt(Hulti  buffer) 

10679  Ini t(A_d1 ) 

10680  I n i t ( A~d2 ) 

10681  I n I t ( A~d3 ) 

10682  I  n  1 1  ( A~d4 ) 

10683  I  Ini t(Multl_buffar) 
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10684  Set_range(A_d1 , 10) 

10685  Set~range<A~d2,10) 

10686  Sat  range(A  <15, 10) 

1068/  Got“rangs<A~d4f10) 

10688  Uri te_di f_count(Mult i_buf fer,0) 

10689  Uri te_upoTnter<Multi  Jouf fer,0) 

10690  Uri  tej-pointer(MultlJxif  fcr,Q) 

10691  Set_ext  _pacing( Scanner) 

10692  Disable^extrigCScanncr) 

10693  $et_crosspoint (Scanner) 

10694  Triggers»65536-366 

10695  Output<Cnt  tot, Triggers) 

10696  Set_peri ode  Scanner,! .OE-5) 

10697  I  PR  I  NT  "START  SCANNER." 

10698  MNPUT  AnssS 

10699  \  WAIT  2 

10700  I  OUTPUT  710; "VSET  3,0" 

10701  \  UAH  2 

10702  WAIT  1 

10703  OUTPUT  710;  "VSET  3,"*VALS<Pulso  ompCSup  indx)) 

10704  WAIT  .02 

10705  Start(Scanner) 

10706  Spin:  ! 

10707  Check  done(Cnt_tot,Cnt  flag) 

10708  IF  (Cnt  flegoT)  THEN  " 

10709  GOTO  SpTn 

1U710  ELSE 

10711  Enable  lockoul(Multl_buffer) 

10712  OUTPUT~71Q;»VSET  3,0" 

10713  UAIT  1 

10714  PRINT  "DATA  COLLECTED" 

10715  END  IF 

10716  Read  upointer(Hul t 1  buffer, Ans) 

10717  PRINT  A ns 

10718  SetJifoJn(HultiJxjffer) 

'10719  Write  rpointor(Hult i  buffer, 796) 

10720  t  IF  (Lp»10)  THEN 

10721  CONTROL  32 , 1 ; 0 

10722  Input  rblockCHultl  buffer, VltsC*) ,665) 

10723  CONTROL  32,1;1 

10724  I  END  IF 

10725  IcntaQ 

10726  Tot  r«od*0 

10727  FOR  Ixd-1  TO  165 

10728  Icnt-lcnt+1 

10729  I xd*( Ixd- 1 )*4+<Ad  no-1) 

10730  VUs(Ud)—  1*Vlts(Izd)*5.0E-3 

10731  Tot  rccd*Vlts( I zd)*Tot  read 

10732  NEXT  Ixd 

10733  Tot  reod^Tot  read/ I cnt 

10734  I  Duty*. 1 

10735  I  Tot_reod»Tot_reod/Duty 

10736  I  Tot_read_tot*Tot  read_tot+Tot  read 

10737  I  PRINT  "TRY  AN0~GET  DATA" 

10738  !  INPUT  AnssS 

10739  I  IF  Up-1)  THEN 

10740  Readino_K-Tnr  read 

10741  ENTER  709;Read1 ngji 

10742  PRINT  "AVERAGE  INPUT  VOLTAGE  ■  ", Reading  a 

10743  PRINT  "AVERAGE  OUTPUT  VOLTAGE  *  »,Read!ng~b 

10744  !  PRINT  "TURN  OFF  30V  PULSE  GENERATOR 

10745  I  INPUT  AnssS 

10746  I  OUTPUT  709;"CHAN,1» 

10/47  I  OUTPUT  7Q9;"TRIG  SGI" 


10748  I  PRINT  “TYPE  FOLLOWED  BY  A  RETURN  TO  RESUME  CALIBRATION." 

10749  !  PRINT 

10750  I  PRINT  “TYPE  RETURN  BY  ITSELF  TO  ADJUST  THE  INPUT  PULSE  LEVEL." 

10751  I  INPUT  AnssS 

10752  I  IF  <Anss$<>"GM)  THEN  GOTO  Adjust 

10753  !  ELSE 

10754  I  ENTER  709; R  «d  c 

10755  I 

10756  i  IF  COPPERHEADS  MEASUREMENT  IS  MAOE  WITH  RESPECT  TO  A  GROUND  WHICH 

10757  1  IS  DIFFERENT  FROM  THE  LOAD'S  RETURN,  DO  NOT  REPLACE  THE  RETURN  LINE 

10758  I  VOLTAGE  DROP  LOST  WHILE  ELIMINATING  ERRONIOUS  I*R  DROPS  (READING  C) 

10759  I  GENERATED  BY  CURRENTS  SHARING  THE  SAME  RETURN  LINE  DURING  CALIBRATION. 

10760  I 

10761  GOTO  LeapJ 

10762  R^ed^c^Orop^f act(Gnd_indx)*Re»din9_a 

10763  Reading  c«R  «d  c 

10764  SILECT  Ik 

10765  CASE  0,32,39,67 

10766  GOTO  No  drop 

10767  CASE  ELSE 

10768  L in€_cur-Reading_a/Chan_load(  Ik) 

10769  Reading  c-R  ed  c-.25*Une  cur 

10770  END  SELECT  ~ 

10771  NO  drop:  ! 

10772  PRINT  "AVERAGE  LINE  DROP  ■  ",R_ed_c 

10773  Retjdrop<lk)-R_ed_c 

1 0774  Leapjf :  ! 

10775  Reading  c-0 

10776  i  END  IF  “ 

10/77  I  PRINT  "TYPE  ENTER  TO  GO  AGAIN." 

10778  I  INPUT  AnssS 

10779  NEXT  Lp 

10780  RETURN 

10781  Cal  switch:  I 

10782  SELECT  Ik 

10783  CASE  1,2,33,34,39,65.97 

10784  PRINT 

10785  PRINT  "CLOSE  ONLY  SWITCH  "fcChanjDinSMk 

10786  PRINT 

10/87  PRINT  "TYPE  ENTER  TO  CONTINUE." 

10788  INPUT  AnssS 

10789  Cal  flag-1 

10790  CASE’ELSE 

10791  END  SELECT 

10792  RETURN 

10793  END  IF 

10794  Ftte  skip  test 

10795  SUBEND  TaO  LD  CAL 

10796  ! 

10797  I  **+*+***+****+*******+*+**+++*++**++**+***+++****+*+****+**++**+ 

10799  I 

10800  SUB  Drv _ps1c  rd  dvm 

10801  I 

10802  I  THIS  ROUTINE  IS  USED  TO  DRIVE  PS1B  FROM  -10  TO  +10  VOLTS  IN 

10803  I  1  VOLT  STEPS  WHILE  READING  DVM  VALUES.  THE  VALUES  ARE  COLLECTED 

10804  I  ALONG  WITH  A/0  READINGS  TAKEN  SIMULTANEOUSLY  BY  THE  6944  FOR  THE 

10805  !  PURPOSE  OF  CALIBRATING  CHANNEL  ATTENUATORS  AND  OP/AMPS. 

10806  I 

10807  COM  /Names/  Scanner, Cnt_tot ,A_d1 ,A_d2,Mul tfjxiffer, T i mer_pecer, T imer_1 , ReL 
ay_d1_s7, Relay  d1_s8,Relay_d1_s9,ReTay-dT_s10 

1 0aoe'cOM  /Nam«s/“*A_u3 , A_d4 , D  ji 1 , D_a2 , D_a3 , D_a4 

10809  COM  /Cal_fact7  Cal^factCZO^O^Avg^voltsCEO.ZO),  J^chanjst ,  J  j:hon_beg,Dvm_v 
olts(100),Ad  volts(110),Lood  gain(130), Ircnt,Xoff  fit.Yoff  fit 

10810  I 
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10811  Chan=? 

10812  Ps  val*9 

10813  UATT  2.97 

10814  FOR  1*2  TO  21 

10815  Vstep*.9 

10816  IF  (1*12)  THEN 

10817  \ 

10818  1  REVERSE  POLARITY  OF  PS18 

10819  I 

10020  CALL  Set  rela  dl  s10<1,1) 

10821  ! 

10822  END  IF 

10823  IF  C I >■ 1 2 )  THEN  Vstep*-.9 

10824  Psj/al«Ps_val -Vstep 

10825  Ps”valS*VAL$(Ps_val) 

10826  Stop( Scanner) 

10827  Ft ic  setupC'SET  PS18  VOLTAG",Ps  val$) 

10828  WAIT~2 

10829  CALL  Read  dvm(Dvm  no,Chan,Uni tsS, Reading) 

10830  ! UA IT  2  "* 

10831  {CALL  Read  dvm<Dvm  no, 1 , Uni tsS, Readb) 

10832  WAIT  2 

10833  IReadingaReading-Rcodb 

10834  IF  <I»11)  THEN 

10835  PRINT  “REVERSE  POLARITY11 

10836  INPUT  Anas* 

10837  END  IF 

10838  StarUScanner) 

10839  Dvm  vol ts( I )®Readinfl 

10840  IF  ( I<>21 )  THEN 

10841  WAIT  2.99 

10842  END  IF 

10843  NEXT  1 

10844  SU8END  !  DRV  OA  RD  DVM 

10845  I 

10846  \  ****t##*.*«*#****.*«****w«.**m*«**«.*w*M«** 

10847  I 

10848  SUB  Set  db  cut(Atten  grp,Dba,Dbb,Test  no) 

10849  I 

10850  COM  /Cal  settings/  Settings<6) 

10851  ! 

10853  f  THIS  ROUTINE  DETERMJNS  THE  GAUUSSIAN  ATTENUATOR  SETTINGS. 

10855  ! 

10856  I 

10857  ALLOCATE  Db  ray(2) 

10858  ALLOCATE  Vin<2) 

10859  ALLOCATE  Atten$(2,2H1Q] 

10860  ALLOCATE  Db_setting<2) 

10861  Attcn$( 1 , 1 )*“ATTEN  A» 

10862  Atten*(1,2)3“ATTEN~fl» 

10863  AttcnS(2,1)=‘,ATTEN^CM 

10864  AttenS(2, 2)3,,ATTEN^D" 

10865  CALL  Init_pg_at 

10866  Ft ic_setup("CAl_GENl “) 

10867  Ftic”setup(“CAL_GCN2«) 

10868  Db_ray( 1 )*Oba 

10869  Ob"roy(2)«Ob b 

10870  Spect  vin=10 

10871  V input *5 

10872  Chanjn=0 

10873  IF  < Atten_grp*2)  THEN  Chan_in=3 

10874  FOR  Jkl*1  TO  2 

10875  Chan_out=Chan_in+Jkl 

10876  Spoct_db“Ob_ray( Jk l ) 
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I  DBS  OVER  50  HAY  REQUIRE  INPUTS  GREATER 
I  THAN  THOSE  ALLOUED  BY  THE  ATTENUATOR. 


I  THE  NEED  FOR  THIS  KIND  OF  CHECK  IS 
I  HIGHLY  DEPENDENT  ON  INPUT  AND  OUTPUT 
t  LOADING.  THE  QB  SETTING  IS  ALSO  A 
I  LOADING  FACTOR. 


10877  I 

10878  I  FIWO  THE  VALUE  OF  THE  GAUSSIAN  INPUT  IMPLIED  BY  THE  SPECIFICATION. 

10879  I 

10881  Vout»Spect  vin/(10A(Spect  db/20))  !  SPECT.  VOUT 

1088.  PRINT  "VOUT»"#Vout 
10885  I 

10384  I  OETERMNINE  A  NEWI  '  UE  FOR  db  BASED  ON  A  5  VOLT  ATTENUATOR  INPUT. 
10885  I 

10887  0b-20*LGT(Vinput/Vout)  I  DB  BASED  ON  A  5V  INPUT 

10888  ! 

10889  1  SET  THE  ATTENUATORS  AND  THE  PULSE  GENERATOR  TO  DELIVER  VOUT. 

10890  I 

10891  I  IF  (Db>50)  THEN  Db*50  I  DBs  OVER  50  HAY  REQUIRE  INPUTS  GREATER 

10892  I  THAN  THOSE  ALLOUED  BY  THE  ATTENUATOR. 

10893  Re  do:  I 

10894  VinS»VALS<V input) 

10895  IF  (VAL(Vin$)>7)  THEN  STOP  I  THE  NEED  FOR  THIS  KIND  OF  CHECK  IS 

10896  I  HIGHLY  DEPENDENT  ON  INPUT  AND  OUTPUT 

10897  I  LOADING.  THE  DB  SETTING  IS  ALSO  A 

10898  I  LOADING  FACTOR. 

10899  CALL  Set_pulse  genCAtten  grp, Vin$, Sett ings(* )) 

10900  PRINT  "LEAVING~SET  PULSE~CENM 
109011  Ftic_setup<MlNIT  SCOPE") 

10902  Db_sentl*DROUND<Db,  2) 

10903  Qb_setting<  Jk l  )»Db_send 

10904  CALL  Set  at ten(Atten*<Atten  grp, Jkl), Db  serei.Db  true,HNEU") 

10905  PRINT  "LEAVING  SET  ATTEN" 

10906  1  "  * 

10907  I  MEASURE  THE  db  REALIZED  BY  THE  SETTINGS. 

10908  I 

10910  CALL  True  db  dvm(Atten  grp, Chan  In, Chan  out.Db  taat.Vln  rtad,Vout  read) 

10911  ! 

10912  1  MAKE  ADJUSTMENTS  TO  SUPPLIES  AND  ATTENUATORS  IF  NECESSARY. 

10913  1 

10915  I  Vfn( Jkl )*Vout#10*(0b  truo/20) 

10916  Vin( Jkl )"Vout*1GA(Db_teat/2Q)  I  USE  DB  TEST  SO  THAT  THE  ACTUAL 

10917  ~  I  DB  IS  USED  IN  THIS  CALCULATION. 

10918  \ 

10919  IF  (Vin(Jkl)>7)  THEN  I  THE  NEED  FOR  THIS  KIND  OF  CHECK  IS 

10920  I  HIGHLY  DEPENDENT  ON  INPUT  AND  OUTPUT 

10921  l  LOADING.  THE  DB  SETTING  IS  ALSO  A 

10922  I  LOADING  FACTOR. 

10923  PRINT  “VIN  WAS  GREATER  THAN  7  VOLTS." 

10924  INPUT  Ana$ 

10925  Db*Ob-5 
1092$  GOTO  Ro  do 

10927  END  IF  ~ 

10928  I  Vin$»VAL$( Vin( Jkl )) 

10929  I  CALL  Set_pulse  gen(Vin$) 

10930  NEXT  Jkl 

10931  I 

10932  1  NOW  DETERMINE  WHICH  ATTENUATOR  MUST  BE  HQOIFIED. 

10933  I 

10934  IF  (Vin(2)>Vin( 1 ) )  THEN 

10935  END  IF 

10936  Klm*2 

10937  Mkl-1 

10938  IF  (Vln(1)>Vin(2))  THEN 

10939  Kim) 

10940  Mkl*2 

10941  END  IF 

10942  Db  dif=20*LGT(Vin(Klm)/Vin<Hkln 

10943  1  *  Db  dif*1  | .*♦*.****.**.*  *#.•**. 

10944  ! 


Vin( Jkl )«Vout#10*(0b_truo/2Q) 
Vine Jkl )»Vout*10A(Db  taat/20) 


»  USE  DB  TEST  SO  THAT  THE  ACTUAL 
I  DB  IS  USED  IN  THIS  CALCULATION. 

I 

I  THE  NEED  FOR  THIS  KIND  OF  CHECK  IS 
I  HIGHLY  DEPENDENT  ON  INPUT  AND  OUTPUT 
f  LOADING.  THE  DB  SETTING  IS  ALSO  A 
I  LOADING  FACTOR. 
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10945  I  THE  FOLLOWING  SAVES  ATTENUATOR  VALUES  BEFORE  ADJUSTMENT. 

10946  ! 

10947  IF  (Atten  grp*1)  THEN 

10948  Settings(3)*INT(Db  setvingd )/10)*10+1  ! ADD  1  TO  REFLECT  THE  ONE 

10949  Settings(4)-INT(Db”setting<2)/10)*10+1  !DB  A0DED  IN  SUB  SET  ATTEN 

10950  ELSE 

10951  Sett ings(5)*JNT(Db_setting(1)/10)*10+1 

10952  Settings(6)=INT<Db"setting(2)/10)*10+1 

10953  END  IF 

10954  ! 

10955  IF  (Db  di f>.5)  THEN 
10956!  Db_send*DROUND(Db_di f , 1 ) 

10957  Db_send=*lNT(Db_di  f+.5) 

10958  CALL  Set_atten(Atten$(Atten_grp,Mkl ) ,Db_send,Db  truefHNEW") 

*i 0959  IF  (Db  true<(2*Db_di f ))  THEN 

10960  PRINT  ••DB  TRUE=“,Db  true 

10961  ! 

10962  !  THE  FOLLOWING  SAVES  THE  AOJUSTED  ATTENUATOR  VALUE. 

10963  ! 

10964  IndxsMkl+2 

10965  IF  (Atten_grp=2)  THEN  Indx=lndx+2 

10966  Settings(7ndx)=lNT(Db  sett ingCMkl )/10)*10+Db  scnd+1  I  ADD  1  (ABOVE  REASON) 

10967  I 

10968  !  THE  FOLLOWING  IS  ONLY  NEEDED  WHEN  PGENs  AND  ATTENs  WILL  NOT 

10969  I  BE  SET  FROM  AN  ATTENUATOR  SETTINGS  FILE. 

10970  ! 

10971  GOTO  Here 

10972  PRINT  “SETTING  ATTENUATOR  TO  TENS  PART  OF  DB.“ 

10973  CALL  Set  atten(Atten$(Atten  grp,Mkl>,Db  sett1ng(Mkl ),Db  true, “NEW" ) 

10974  PRINT  “SETTING  ATTENUATOR  TO  ONES  PART  OF  DB.“ 

10975  Ft ic  setup(Atten$(Atten  grp,Mkl ),MXM&VALS(0b  send)) 

10976  ELSE” 

10977  PRINT  “SETTING  ATTENUATOR  TO  TENS  PART  OF  DB.“ 

10978  Db_trunc*INT(Db_setting(Mkl)/1Q)*1G 

10979  Ftic_$etup(Atten$<Atten_grp,Mkl )#“Y“&VAL$(Db_trunc)) 

10980V  CALL  Set  atten(Atten$<Atten  grp,Mkl),Db  sett ingCMkl ),Db  true, “NEW") 

10981  Here:! 

10982  END  IF 

10983  END  IF 

10984  Vin$3VAL$(Vin(Klm) ) 

10985  CALL  Set _pulse  gen(Atten  grp,VinS,Settings(*))  !  SET  THE  PULSE  GEN.  TO  A 
VIN  THAT  WILL 

10986  !  PROOUCE  VOUT  USING  THE  TRUE  DB  SETTING. 

10987!  CALL  True  db_dvm(Atten  grp, Chan  in, Chan  out,Db  true,Vinf in, Voutf in) 

10988!  PRINT  ‘'DB»“,Db  true,  ”vTn»“,V  inf  Tn,  “VOUTa”,  Voutf  in 

109891  PRINT  “LEAVING”SET  DB  OUT" 

10990  ! 

10991  !  STORE  ATTENUATOR  SETTINGS 

10992  ! 

10994  CALL  Write  atten  dat(Test  nOjSettingst*)) 

10995  ! 

10997  SUBEND  ! SET  OB  OUT 

10998  ! 

10999  I  *******«******«*«*«*.*******************.**«**#*«**•**..****,* 

11000  ! 

11002  SUB  Burst  setup(Tri gsl , Idle  time  1) 

11003  ! 

11004  I  THIS  ROUTINE  IS  USED  TO  SET  UP  CARDS  FOR  SAMPLING  DATA  IN  BURSTS. 

11005  I 

11006  COM  /Names/  Scanner ,Cnt_tot ,A_d1 ,A_d2,Mul tijxjffer, T imer_pacer, T imcr_1 , Re l 
ay_d1_s7,Relay_d1_s8, Relay  d1_s9, Relay  d1_s10 

110Q7~COM  /Names/~A  d3,A  d4,o”a1,D  a2,D  a3,D  a4 
11008  ! 

11009  !  CLOSE  MASTER  RESET  UNTIL  RELAY  AND  CARD  SETTINGS  ARE  COMPLETE. 
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11010  ! 

11011  CALL  Set  rela  dl  s10(16,1) 

11012  \ 

11013  I  OPEN  "TIMER  PACER  CDP-NOT"  TO  "SCANNER  EXT"  RELAY. 

11014  | 

11015  I  CALL  Set  rela  d1_87(10,Q) 

VQ16  I 

11017  I  ENERGIZE  THE  DECODER  TO  3E  USED  FOR  THE  FOLLOWING  RELAY  CONDITIONS 

11018  I  ANO  CAUSE  THE  FOLLOU1NG  TO  HAPPEN: 

11019  !  CLOSE  "TIMER  PACER  EXT -NOT"  TO  "COUNTER  BORROU-NOT"  RELAY. 

11020  I  OPEN  "TIMER  PACER  EXTJKDT"  TO  "COUNTER  CAARY-MCT"  RELAY. 

11021  I  SWITCH  IN  CARRY  &  BORROW  "AND"  GATE. 

11022  !  CLOSE  COUNTER  IMP  1. 

11023  I 

11024  CALL  Set  rela  dl  *7(14,1) 

11025  ! 

11026  I  RESET  TIMER  PACER  &  CNT  TOT  EOPS  IN  CASE  OF  PREMATURE  TRIGGERS. 

11027  I 

11028  UA1T  .5  • 

11029  Checkjdorve(Tin>er  _pacer#Dum) 

11030  WAIT  5 

11031  Check  done(Cnt  tot,Dum) 

11032  WAIT  5 

11033  Pres«t(Timer_pacer,3.1)  f  SETS  TIMER_PACER  TO  A  3.1  SEC.  DELAY 

11034  1  LOCK  SCAN  CONTROL  PACER'S  EXTERNAL  TRIGGER 

11035  Disable  extrig(Scanner) 

11036  WAIT  2.QE-2 

11037  |  CLOSE  "SCANNER  EXT-NOT"  TO  "BURST  INITIATION  SIGNAL"  RELAY. 

11038  CALL  Set  rela  dl  *7(12,1) 

11039  WAIT  2.0E-2 

11040  CALL  Set  rela  dl  *10(16,0)  iOPEN  MASTER  RESET 

11041  WAIT  2.QE-2 

11042  ! 

11043  I  CLOSE  FUNCTION  GEN.,  TIMER  PACER  EOP  AND,  CNT  TOT  EOP  TO  0  A4#  LINES 

11044  CALL  Set  rela  dl  *8(4,0) 

11045  I 

11046  I  LOAD  COUNTER  WITH  DELAY  COUNT. 

11047  | 

11048  Tri 9s*637  I  637  IS  THE  NUMBER  OF  7.7 m  COUNTS  TO  DELAY  4.9  SEC. 

11049  Output(Cnt  tot,Trigs) 

11050  ! 

11051  1  LOAD  COUNTER  TOTALIZER'S  SECOND  RANK  STORAGE  WITH  A  BURST  COUNT. 

11052  I 

11053  Tr 198*65535-39 

11054  Pr«8et<Cnt  tot, Trigs) 

11055  I 

11056  i  DISABLE  A  D2 

11057  I 

11058  Di sable-mxctrl(A-d2) 

11059  Disable  extrig(A  d2) 

11060  I 

11061  I  SET  FUNCTION  GENERATOR 

11062  1 

11063  Ftic  setup("SET  FREQ  GENl", "FU2FR260HZAM2VOOF1 .01  VO") 

11064  \ 

11065  Disable  extrig(A_d1) 

11066  !  START  TEST 

11067  ! 

11068  PRINT  "TYPE  ENTER  TO  START  15  SEC  TEST" 

11069  INPUT  AnsS 

1 1070  CALL  S*t_rela_d1 _s7(9,1) 

11071  Uai t_fgr(Cnt_tot ) 

11072  Enoble  extrig(A  dl ) 

11073  UAI T  2T0E-2 
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11074  CALL  Set  rela  dl  s7<9,0) 

11075  WAIT  10.1  "  I'UAIT  FOR  FIRST  PART  OF  FOUR  PART  TEST  TO  FINISH 

11076  Preset (0  a4,0) 

11077  Start(D_a4) 

11078  CAL'  Set  rela_d1_s10<5(1) 

11079  CALL  Set~rela~d1~s7(15, 1) 

11080  CALL  Set~rela  drs7<16,1) 

11081  WAIT  .5  “  !  WAIT  FOR  SECOND  PART  TO  FINISH 

11082  \ 

11083  I  LOCKOUT  MEMORY 

11084  t 

11085  Enable  lockout(Hul ti  buffer) 

11086  WAIT  2T0E-2 

11087  \  CALL  Set  rela_d1_s10< 16, 1 ) 

11088  I  WAIT  2.0E-2 

11089  Stop< Scanner) 

11090  Ft ic  setup(“SEf_PSlB  VOLTAG*', "0") 

11091  !  CALL~Set-rela_d1_s9<2,0) 

11092  I  CALI  Set~rela~d1~s7( 15, 0) 

11093  I  CALL  Set  relajjl~s7<  16, 0) 

11094  »  WAIT  2.0E-2 

11095  I  Ft  ic  setupC'SET  PS1B  V0LTAG,V,5“) 

11096  I 

11097  I  CLOSE  "TIMER  EXT-NOT"  TO  “COUNTER  CARRY-NOT  RELAY 

11098  !  OPEN  “TIMER  EXT-NOT11  TO  "COUNTER  BORROW-NOT"  RELAY 

11099  I  OPEN  1NP  1 

11100  I  OPEN  COUNTER  AND  GATE 

11101  I 

11102  CALL  Set  rela  dl  s7<14,0) 

11103  CALL  Sefc”rela'’drs10(4l1) 

11104  WAIT  2.QE-2 

11105  I 

11106  I  CLOSE  "TIMER  PACER  COP-NOT"  TO  “SCANNER  EXT"  RELAY. 

11107  I 

11108  1  CALL  Set  rela  dl  s7(10.1) 

11109  I  WAIT  2.0E-2 

11110  i 

11111  \  RE-SET  COUNTER  AND  TIMER/PACER 

11112  I 

11113  Cnts*65535-Trigs1 

11114  Output (Cnt_tot,Cnts) 

11115  Preset (T imer_pacer, Idle  time  1) 

11116  SUBEND  I  BURST  SETUP 

11117  I 

11118  !  ****************************************************** 
11119  I 

11121  SUB  Store_run_data<Vol ts(*),Tot_samples,Uai t_time,Rec_num) 

11122  DIM  Tcfnp  aray(4Q00) 

11123  ASSIGN  RFile  TO  “/FTM/HOME  DIROO/RUN  DATA:, 1400“ 

11124  ASSIGN  OParam  TO  “/FTM/HOME  J)1 R00/RUN_DATA_EX 1400" 

11125  OUTPUT  3Param;Tot  sumples.Wait  time 

11126  I  . 

11127  I  LOAD  UP  TEMP  ARRAY  AND  STORE  DATA  4000  PER  RECORD 

11128  ! 

11129  FOR  J^l  TO  5 

11130  Low»(J-1)*4000 

11131  High*(J*4000)-1 

11132  Kt-0 

11133  FOR  I»Low  TO  High 

11134  Kt*Kt+1 

11135  Temp  aray(Kt )*Vol ts( I , 0) 

11136  NEXT’l 

1 1 137  OUTPUT  3F i le,Rec_num; Temp_aray(*) 

11138  Rec  num=Rec  nurn-l 


57 


11139  NEXT  J 

11140  SUBEND  I  STORE  RUN  DATA 

11141  i 

11142  !  e**********-*************************^************************* 

11143  I 

11145  SUB  Get  run  dataCVoltsC^.Tot.sanples^ai t_time,Recj**jm) 

11146  OIM  Temp  eray<4000) 

11147  ASSIGN  fiFUe  TO  "/FTH/HOHE  OIROO/RUNJ)ATA: ,  1400" 

1 1148  ASSIGN  SParim  TO  "/?TM/HOMljHRQQ/tUNJ)ATA_EX: ,  1400" 

11149  ENTER  SP«ram;Tot  samples, Walt  time 

11150  i 

11151  I  GET  DATA  4000  AT  A  TIME  ANP  STORE  IN  VOLTS  ARRAY 

11152  I 

11153  FOR  J*1  TO  5 

11154  ENTER  aFile,Rec  num;T#mp  aray(*) 

11155  Low-<J-1)*4000  " 

11156  High*(J*4000)-1 

11157  Kt-0 

11158  FOR  1 -Low  TO  High 

11159  Kt=Kt*1 

11160  Volts(l,Q)*Tefnp  aray(Kt) 

11161  NEXT  I 

11162  Rec  num=Rec  num«-1 

11163  NEXT  J 

11164  SU8END  (GET  RUN  DATA 

11165  I 

11170  SUB  Squib_driv< Analyze)  I  PAR  68 

11171  CON  /Test~conf  ig/  Time _per  chan  1,Tira#j*r  chan  2, Time j3«r_chanJ$, Window  1 
,Uirctow_2,UirciowJ3,NameS(20)  [10]  ,U1 11,U1 12,U211  ,U212,U213,U214,U31 1 ,U312 

11172  COM  /Teat^conf ( g/  Chana^per^acn^l  f  Ghana  j>er_scn_2#  China _per_scn_3,  Idlest  im 
a  1,Idle  time  2 

11174  CON  /Test_select/  FilS(1 :72) [801 ,Hark$[2] .TeatjumeSlBO] 

11175  CON  /Switch/  Sw_state<4),Srh,Sw  windows, Wait  gate(3) 

11176  IF  (Fi  IS(12) [3;2]  ■"*  ">  THEN"" 

11177  COM  /Anal_data/  Line_namtS<20) [10] ,Voltage_nomS<32) [10] ,Vol tflfle_tolS(32) [1 
0]  ,Time_edge_noinS<16)  [10]  ,Tffne_edg€^tolS(16)  [10]  ,Time_ref  ,Time_edge_ ignore  16) 

11178  CON  /Anal  data/  Time  ref  old 

11179  OATA  »0'' , »0H , "0"( VO" , "O" , M0» , M0H 

11180  OATA  "1 0 . 77"  / »'  1 0 . 77" , " 1 0 .8" ,  "22 . 6» ,"24.5",  "22 . 6" ,  "25 . 3" ,  "25 . 3" 

11181  OATA  "O'* ,  “0" ,  "0" ,  "0" ,  "0" ,  "0" ,  "0" ,  "0" 

11182  DATA  »0"I"0"I"0"#"0H#"0»(»0"/I0,,I"0" 

11183  READ  Vol tage_nom£<*) 

11184  DATA  "Q",". 4", ".4",". 4", ".4", ".4",". 4",". 4",". 4" 

11185  DATA  M.005,,#M.005,,f M.005M,".005,,> ".005MrH*005,,,,,.005"f " .005" 

11186  DATA  ".4",".4",".4",H.4",".4",".4»,".4",M.4" 

11187  DATA  " . 4" , " . 4" , " . 4 " , " . 4 " , " . 4 " , " . 4 " , " . 4 " , " . 4 " 

11188  READ  Voltage_tol$<*) 

11189  DATA  M0"#M.005,,,,,.005,,,,‘0.21",M1,,f "1", "I", "1 .9", "0. 11" 

1 1 1 90  DAT A  « . 025 " , " . 025" , " . 23 " , " 1 . 02" , " 1 . 02" , " 1 . 02" , " 1 . 92" , " . 1 3" 

1 1 191  READ  T i me_edg e_nom$ <  * ) 

11192  OATA  "0" , " . 005 ",  ", 005" , "0 . 1 " , "0 . 2" , "0 . 2" , "0 . 2" , "0 . 2" , “0 . 05 " 

11193  DATA  *  " . 00511 , " . 005",  "0. 1 11 , 11 .2" , M .2", '* . 2", " .  2" ,  "0.05 " 

11194  READ  Time  edge  tol$<*> 

11195  DATA  0,0,0,0,070,0,0,0 

11196  DATA  0,0, 0,0,0, 0,0,0 

11197  READ  Tfmt_edge  ignore*) 

11198  I 

11204  PRINTER  IS  701 

11205  NaroeS<0)«"EA1  SO  DR" 

11206  Name$(1  )a*MEA2~SQ~DK" 

11207  Name$(2)=M30V_8AT» 

11208  NameS(3)*"SGG  SO  OR" 

11209  NameS(4)»,,GAS  SO  DR" 

11210  Name$(5)»"SGS  SO  OR" 
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11211  NameJ(6)-MWUM  SO  DR" 

11212  NameS(7)*»WEX  SO  OR" 

11213  1 

11214  FOR  1*1  TO  20 

11215  K*l-1 

11216  Line  name$< I)*NameS(K) 

11217  next“i 

11218  CALL  Spec_check 

11219  STOP 

11221  I 

11222  Test  nameS*FUS<12)[5] 

11223  1  SPECIFY  THE  Srh  SWITCH  USED  TO  START  THE  TEST. 

11224  I  7  -  EP  &  GUIDANCE  8  -  SEEKER 

11225  I 

11226  Srh*7 

11227  I 

11228  !  ONLY  BECAUSE  IT  ALSO  DISABLES  THE  ATTENUATOR  SWITCH 

11229  !  USED  IN  THE  Test  frame  SUBROUTINE. 

11230  I 

11231  I 

11232  T imc  r )f  *0 

11233  I 

11234  FOR  IJk-1  TO  8  !  ANALYZE  ALL  8  DATA  L'NES 

11235  SELECT  Ijk 

11236  CASE  1,2 

11237  Time  ref«0 

11238  CASE~ELSE 

11239  Time  ref-Time  ref  old 

11240  END  SELECT 

11241  I 

11242  1 

11243  I 

11244  I 

11245  I  ESTABLISH  WINDOW  PARAMETERS. 

11246  \ 

11247  Time_per_chan_1*1 .E-4 

11248  Time_per_chan_2*2.E-3 

11249  Time_per  chon  3*5. E-4 

11250  WindowJ-3.5E~2 

11251  Window  2*3.5 

11252  Window~3*2.5 

11253  Idle  time  1*5.QE-2 

11254  Idlest ime~2*1 .00E-1 

11255  I 

11256  !  SET  SCANNER  CHANNEL  POINTERS  ACCORDING  TO  (SCANNER#- 1 )*32+CHANNEL# 

11257  I 

11258  W111-0 

11259  W1 12*32 

11260  ! 

11261  W2U-1 

11262  U212-33 

11263  W2 13*65 

11264  U2 14*97 

11265  I 

11266  W31 1*2 

11267  W312-34 

11268  I 

11269  I  IDENTIFY  CHANNEL  ASSIGNMENTS  IN  MEANINGFUL  TERMS. 

11270  \ 

11271  I 

11272  I  ANALYZE  DATA 

11273  i 

11274  lkk»I jk- 1 

11275  CALL  Test_frome("P",VALS<Ikk))  I  GETS  DATA  AND  PUTS  IT  INTO  VOLTSO 
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I  ARAYS 


11276 

11277  CALL  Main  fromeC Ikk.Test  name$) 

11278  I 

11279  NEXT  IJk 

11280  ENO  IF 

11281  Ftte_skip_test 

11282  SURE NO 

11283  ! 

11284  ]  t***t***tM*tt»i»i*f*<ti«w«»*«tt**« 

11285  1 
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